Public Class Bilder
     Private Pictures() as System.Drawing.Image = {Bild1, Bild2, Bild3, Bild4, _
       ...}
 
     Public Function GetImage(ByVal Index As Integer) As System.Drawing.Image()
          Return Pictures(index)
     End Function
End Class

Public Class Irgendwas
     Private MyImageClass As New Bilder
 
     Private Sub SetImage(ByVal Index As Integer)
          PictureBox1.Image = MyImageClass.GetImage(Index)
     End Sub
End Class

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