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

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Hochzählen()
    End Sub
    Sub Hochzählen()
        Dim Zahl As String = Val(GetZahl + 1)
        Dim BenutzteBuchstaben As New List(Of Char)
        Dim buchstaben As String = "abcdefghijklmnopqrstuvwyz"
        Dim Verschlüsselt As String = "x" 'x Als Trennzeichen
        For x As Integer = 0 To 9
Neu:
            Dim buchstabe As Char = buchstaben(Int(Rnd() * 24))
            If BenutzteBuchstaben.Contains(buchstabe) Then GoTo Neu _
              'Verhindern, dass ein Buchstabe doppelt verwendet wird.
            BenutzteBuchstaben.Add(buchstabe)
            Verschlüsselt &= buchstabe
        Next
        For i As Integer = 0 To zahl.Length - 1
            Verschlüsselt = BenutzteBuchstaben(Val(Zahl(i))) & Verschlüsselt
        Next
        Dim key As String = My.Computer.Registry.LocalMachine.Name
        My.Computer.Registry.SetValue(key, "MeinProgLoaded", Verschlüsselt)
        MsgBox("Programm wird zum" & Zahl & "ten mal Gestartet")
    End Sub
    Function GetZahl() As Integer
        Dim key As String = My.Computer.Registry.LocalMachine.Name
        Dim Verschlüsselt As String = My.Computer.Registry.GetValue(key, _
          "MeinProgLoaded", "axabcdefghij")
        If Verschlüsselt = Nothing Then Verschlüsselt = "axabcdefghij"
        Dim Zahl() As String = Verschlüsselt.Split("x")
        Dim buchstaben As String = Zahl(1)
        Dim ret As String = ""
        For x As Integer = 0 To Zahl(0).Length - 1
            For y As Integer = 0 To buchstaben.Length - 1
                If Zahl(x) = buchstaben(y) Then
                    ret &= y
                End If
            Next
        Next
        Return ret
    End Function
End Class