[VB.NET]Pong collision probleem

[mpie]

Ik heb een sub gemaakt voor de beweging van de bal.
Nu probeer ik dus de collision te detecteren maar op de een of ander manier gaat het fout. In VB6 lukt het me wel. Tijdens de run gaat de bal links/omhoog en knalt tegen de hoek aan komt een paar pixels terug en gaat weer naar boven en weer paar pixels terug. Hij moet dus wel het hele form gebruiken. Kan iemand er naar kijken?

Visual Basic:

Sub Beweegbal()
        'VY = 40
        'VX = 950

        'ballYpositie += 10
        'ballXpositie += 10

        If dirUp = True Then
            ballYpositie = ballYpositie - 10
        Else
            ballYpositie = ballYpositie + 10
        End If

        If dirLeft = True Then
            ballXpositie = ballXpositie - 10
        ElseIf Not Left Then
            ballXpositie = ballXpositie + 10
        End If

        If ballHeight + ballYpositie >= maxHeight Then
            dirUp = True 'Weer naar boven
        Else
            dirUp = False
        End If

        If ballWidth + ballXpositie >= maxWidth Then
            dirLeft = True 'Naar links
        Else
            dirLeft = False
        End If

        If ballYpositie <= 0 Then 'hier kan het evt fout gaan
            dirUp = False 'Naar beneden
        Else
            dirUp = True
        End If

        If ballXpositie <= 0 Then
            dirLeft = False 'Naar rechts
        Else
            dirLeft = True
        End If
    End Sub

[abeker]

Je verandert nu de richting van de bal ook als de richting niet verandert hoeft te worden....

[curry684]

Kan iemand er naar kijken?

Nope, dat kunnen we niet. Debuggen is je eigen werk, zodra je het probleem geisoleerd hebt en je komt er nog niet uit kunnen we je wel van dienst zijn. In de FAQ staat trouwens een hele handleiding over hoe je het beste kan debuggen