Dim RGBWert As Integer = ((Wert / Maximalwert) * 510)
        Dim red As Integer
        Dim green As Integer = 255
        Dim blue As Integer = 0
        If RGBWert <= 255 Then
            red = RGBWert
        Else
            red = 255
            green = 255 - (RGBWert - red)
        End If
        Label1.BackColor = Color.FromArgb(red, green, blue)

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