Private Sub image1_Click()
image1.Move (Form1.Left + from1.Width) \ 2 - Form1.Left, (Form1. + Form1.Height) \ 2 - Form1., image1.Width \ 2, image1.Height \ 2
End Sub
Private Sub Form_Load()
image1. = 100
image1.Left = 0
image1.icture = LoadPicture(App.Path + "c:\ssss.gif")
End Sub
跟代码没关系,你必须制定一个系统启动的窗体
右键点击右上方的“窗体”,选择它的属性,设置一个启动对象