Public Class Form1
    Dim pb() As PictureBox
    Dim offset As Integer = 1
    Dim pbleft As Integer = 20
    Dim pbtop As Integer = 20
    Dim mypb As New PictureBox
 
Private Sub ErzeugeSpielfeld()
        For x = 1 To 10
            For y = 1 To 20
                pb(offset) = mypb
                With pb(offset)
                    .Name = "pb" & CStr(offset)
                    .Size = New Size(20, 20)
                    .Location = New Point(pbleft, pbtop)
                    .BackColor = Color.Black
                    .BorderStyle = BorderStyle.Fixed3D
                End With
                Me.Controls.Add(pb(offset))
                offset += 1
                pbtop += 20
            Next
            Me.Controls.Add(pb(offset))
            offset += 1
            pbleft += 20
        Next
    End Sub

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