Скажите пожалуста
Как заставить рисунок двигатся хаотично, и что бы он останавливал движение при шелькание мышки по нему.
И как менять скорость передвижения рисунка????
Dim Flag As Boolean
Sub Obj_Click()
Flag = True
End Sub
Dim Flag As Boolean
Private Sub Form_Load()
Timer1.Interval = 1
Flag = False
End Sub
Private Sub Timer1_Timer()
If Flag = True Then Timer1.Enabled = False
count& = count + 1
If count > 10 then
RNDX& = Int(Rnd * 8) - 4
RNDY& = Int(Rnd * 8) - 4
count = 0
End If
Obj.Left=Obj.Left + RNDX
Obj.Top=Obj.Top + RNDY
DoEvents
End Sub
Sub Obj_Click()
Flag = True
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 19