Public Sub collision2(ByVal x As Integer, ByVal y As Integer, ByVal x1 As _
   Integer, ByVal y1 As Integer, ByRef CollidiertMit As String)
 
 
        'x und y Position des Objektes
        'x1 und y1 Position des Spielers
        'CollidiertMit zeit die Richtung von der die Collision erfolgt
        'klappt nur wenn y1 = y ist
 
        Dim längederSeitenx1 As Integer = 10
        Dim längederSeiteny1 As Integer = 10
        Dim längederSeiteny As Integer = 10
        Dim längederSeitenx As Integer = 10
 
        If x1 >= x And x1 <= x + längederSeitenx And y1 >= y And y1 <= y _
          + längederSeiteny Or _
        x1 + längederSeitenx1 >= x And x1 + längederSeitenx1 <= x + _
        längederSeitenx And y1 >= y And y1 <= y + längederSeiteny Or _
        x1 >= x And x1 <= x + längederSeitenx And y1 + längederSeiteny1 _
        >= y And y1 + längederSeiteny1 <= y + längederSeiteny Or _
        x1 + längederSeitenx1 >= x And x1 + längederSeitenx1 <= x + _
        längederSeitenx And y1 + längederSeiteny1 >= y And y1 + _
        längederSeiteny1 <= y + längederSeiteny Then
 
 
 
 
 
            If x1 >= x And x1 <= x + längederSeitenx And y1 + _
              längederSeiteny1 >= y And y1 + längederSeiteny1 <= y + _
              längederSeiteny And _
                x1 + 1 >= x And x1 + 1 <= x + längederSeitenx And y = y1 + _
                längederSeiteny1 Or _
               x1 + 9 >= x And x1 + 9 <= x + längederSeitenx And y = y1 + _
               längederSeiteny1 And _
                x1 + längederSeitenx1 >= x And x1 + längederSeitenx1 <= x + _
                längederSeitenx And y = y1 + längederSeiteny1 Then
 
                CollidiertMit = "o"
 
                Exit Sub
 
            End If
 
 
 
            If x1 >= x And x1 <= x + längederSeitenx And y + längederSeiteny _
              = y1 And _
                           x1 + 1 >= x And x1 + 1 <= x + längederSeitenx And _
                           y + längederSeiteny = y1 Or _
                          x1 + 9 >= x And x1 + 9 <= x + längederSeitenx And _
                          y + längederSeiteny = y1 And _
                           x1 + längederSeitenx1 >= x And x1 + _
                           längederSeitenx1 <= x + längederSeitenx And y + _
                           längederSeiteny = y1 Then
 
                CollidiertMit = "u"
 
                Exit Sub
            End If
 
            If y1 >= y And y1 <= y + längederSeiteny And x + längederSeitenx _
              = x1 And _
                             y1 + 1 >= y And y1 + 1 <= y + längederSeiteny _
                             And x + längederSeiteny = x1 Or _
                            y1 + 9 >= y And y1 + 9 <= y + längederSeiteny _
                            And x + längederSeiteny = x1 And _
                             y1 + längederSeiteny1 >= y And y1 + _
                             längederSeiteny1 <= y + längederSeiteny And x + _
                             längederSeitenx = x1 Then
 
                CollidiertMit = "r"
 
                Exit Sub
            End If
 
            If y1 >= y And y1 <= y + längederSeiteny And x = x1 + _
              längederSeitenx1 And _
                             y1 + 1 >= y And y1 + 1 <= y + längederSeiteny _
                             And x = x1 + längederSeitenx1 Or _
                            y1 + 9 >= y And y1 + 9 <= y + längederSeiteny _
                            And x = x1 + längederSeitenx1 And _
                             y1 + längederSeiteny1 >= y And y1 + _
                             längederSeiteny1 <= y + längederSeiteny And x = x1 _
                             + längederSeitenx1 Then
 
                CollidiertMit = "l"
 
                Exit Sub
            End If
        Else
            CollidiertMit = "nichts"
        End If
 
    End Sub