'normale var-deklaration
dim passwort as string
dim versuche as single
 
'im form_load-ereignis: 
versuche =0
txtPasswort.Text = passwort
   if passwort  = "Beispiel" then                                          ' 
   ' wenn variable = passwort ist dann
                                 load frmNächstetsFenster                ' 
                                 ' starfenster o.ä. laden
                                 unload frmLogin                                _
                                    '  und loginfenster entladen
   Else versuche = versuche +1                                 'anderenfalls 
   ' wird variable um 1 erhöht
 
if versuche = 3 then msgbox                                   'und wenn 
' variable den wert 3 hat
("Nach 3 versuchen wurde kein gültiges passwort eingegeben!") 'meldung anzeigen
end            'und programm beenden