用这个代码试试,图片放到image1内,该控件的属性stretch设置为true
Private Sub Form_Load()
Form1.Height = Screen.Height / 6
Form1.Width = Screen.Width / 6
End Sub
Private Sub Form_Resize()
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Image1_Click()
End
End Sub