代码示例如下：
Private Sub Form_Click()
Image1.Picture = LoadPicture("d:\image2.jpg")
End Sub
Private Sub Form_DblClick()
Image1.Picture = LoadPicture("d:\image3.jpg")
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture("d:\image1.jpg")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024