Collission Detection

[CyberCarsten]

I have to lines on a form....
Line1 is "standing up", line1 is laying down.
I'm moving Line2 towards line1, and want to detect thwn the "tip" of Line2 touches Line1..

I have the following code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyLeft) Then
    Line2.X1 = Line2.X1 - 80
    Line2.X2 = Line2.X2 - 80
    
End If

If GetAsyncKeyState(vbKeyRight) Then
    Line2.X1 = Line2.X1 + 80
    Line2.X2 = Line2.X2 + 80
    If Line2.X1 > Line1.X2 Then
        Me.Caption = "Colission!"
    End If
End If

If GetAsyncKeyState(vbKeyUp) Then
    Line2.Y1 = Line2.Y1 - 80
    Line2.Y2 = Line2.Y2 - 80
End If

If GetAsyncKeyState(vbKeyDown) Then
    Line2.Y1 = Line2.Y1 + 80
    Line2.Y2 = Line2.Y2 + 80
End If


End Sub

[CyberCarsten]

Never mind guys! I figures it out!