Question

vb 程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。

求高手！尽量快！

Answer 1

Private Sub Picture1_Click()
Dim X, Y
X = Rnd * Me.ScaleWidth
Y = Rnd * Me.ScaleHeight
Picture1.Move X, Y
End Sub