Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles cmdOK.Click
        If Txtbezahlt.Text > TxtPreis.Text Then
            TxtRetour.Text = Format(Txtbezahlt.Text - TxtPreis.Text, "0.00")
        End If
        ' Wenn der bezahlte Betrag grösser ist als der Preis soll es 
        ' in TxtRetour den zuviel bezahlte Betrag anzeigen
        picIce.Visible = True
        lblreset.Visible = True
    End Sub
    Private Sub OKButton()
        If Txtbezahlt.Text >= TxtPreis.Text Then
            cmdOK.Enabled = True
        Else
            cmdOK.Enabled = False
        End If
        'Wenn der Inhalt der Textbox bezahlt grösser oder gleich ist wie die 
        ' Textbox Preis 
        'dann soll es den OK Button aktivieren sonst soll er deaktiviert bleiben
    End Sub
End Class