Private bClick as Boolean
Private Picture1_Click()
bClick=True
End Sub
Private Sub Point_Click()
Randomize
bb=True
Do While bb
Doevents
If bClick then
bClick=False
Exit Do
End if
x=Rnd*Width
y=Rnd*Height
Picture1.Pset (x,y)
Loop
End Sub
Private Picture1_Click()
bClick=True
End Sub
Private Sub Point_Click()
Randomize
bb=True
Do While bb
Doevents
If bClick then
bClick=False
Exit Do
End if
x=Rnd*Width
y=Rnd*Height
Picture1.Pset (x,y)
Loop
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货