








Private Sub Command1_Click()
Dim hp As Integer
Do While hp = 100
Image1.Left = hp
Loop
End Sub

Do
Image1.Left = Image1.Left - TwipsPerTime 'PixelsPerTime 'скорость сдвига
DoEvents
Loop While Image1.Left > 100



Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14