[RESOLVED] Need Help for point and click game

[akhileshbc]

Try this code:

Option Explicit

Dim Xtarget     As Long
Dim Ytarget     As Long
Dim revX        As Boolean
Dim revY        As Boolean
Dim xReached    As Boolean
Dim yReached    As Boolean

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 50
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Xtarget = CLng(X)
    Ytarget = CLng(Y)
    
    If Xtarget > Shape1.Left Then
        revX = False
    Else
        revX = True
    End If
    
    If Ytarget > Shape1.Top Then
        revY = False
    Else
        revY = True
    End If
    
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If revX = False Then
        If Shape1.Left < Xtarget Then
            Shape1.Left = Shape1.Left + 50
        Else
            xReached = True
        End If
    Else
        If Xtarget < Shape1.Left Then
            Shape1.Left = Shape1.Left - 50
        Else
            xReached = True
        End If
    End If
    
    If revY = False Then
        If Shape1.Top < Ytarget Then
            Shape1.Top = Shape1.Top + 50
        Else
            yReached = True
        End If
    Else
        If Ytarget < Shape1.Top Then
            Shape1.Top = Shape1.Top - 50
        Else
            yReached = True
        End If
    End If
    
    If xReached = True And yReached = True Then
        xReached = False
        yReached = False
        Timer1.Enabled = False
    End If

End Sub

.....