Private Sub Form1_Load(...) Handles Me.Load
    If Not My.Settings.Datum = Now.Date Then
        My.Settings.Datum = Now.Date
        If My.Settings.Zeit <= 30 Then
            My.Settings.Zeit += 1
        Else
            MsgBox("Testzeit abgfelaufen")
            Application.Exit()
        End If
    End If
    My.Settings.Save()
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