Zitat:

Fehler 1 Arrays, die als Strukturmember deklariert sind, können nicht mit einer vorgegebenen Größe definiert werden.

 
Public Structure Irgendwas
    Dim eins() As Integer
    Dim zwei() As Integer
    Dim drei() As Integer
    Public Sub New()
        ReDim eins(10)
        ReDim zwei(20)
        ReDim drei(30)
    End Sub
End Structure

 
If M?lleimer.Entfernung <= Wurfweite Then
   M?ll.Werfen.ToM?lleimer()
ElseIf M?lleimer.Entfernung > Wurfweite Then
   M?ll.Werfen.ToBoden()
End If