[RESOLVED] vibrate an image

[RobDog888]

Updated code to move a image control for 5 seconds.

Option Explicit
 
Private miTogglePos As Integer
Private mlElapsedTime As Long
 
Private Sub Form_Click()
    Timer1.Enabled = Not Timer1.Enabled
    mlElapsedTime = 0
End Sub
 
Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 25
    miTogglePos = 1
    Image1.Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE03.ICO")
End Sub
 
Private Sub Timer1_Timer()
    If mlElapsedTime = 5000 Then Timer1.Enabled = False
    mlElapsedTime = mlElapsedTime + Timer1.Interval
    Select Case miTogglePos
        Case 1
            Image1.Move 1000, 1000
            miTogglePos = 2
        Case 2
            Image1.Move 1100, 1000
            miTogglePos = 3
        Case 3
            Image1.Move 1100, 1100
            miTogglePos = 4
        Case 4
            Image1.Move 1000, 1100
            miTogglePos = 1
    End Select
End Sub