Private Sub OpenFile()
    dim ofd as new OpenFileDialog
    if ofd.ShowDialog() = DialogResult.OK Then
        g.DrawImage(New Bitmap(ofd.FileName), 0, 0)
    End If
End Sub

OpenFile()

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