experymenty

funkcja sprawdza, czy wciśnięta na formularzu sekwencja klawiszy odpowiada zdefiniowanemu hasłu, przekazanemu jako parametr
ja tego używam na formularzach przy zdarzeniu On Key Press (Przy naciśnięciu klawisza). Wywołuję tym jakieś ukryte możliwości (np. jakiś konfigurator albo edycję ukrytych pól...)

Uwaga: właściwość formularza KeyPreview (Podgląd Klawiszy) musi być włączony na Yes/Tak.

Public Function VerifyPassword(passwd As String, KeyAscii As Integer) As Boolean
Static keycount As Integer
Dim prevcount As Integer
prevcount = keycount
If AscW(Mid(passwd, keycount + 1, 1)) = KeyAscii Then keycount = keycount + 1
If prevcount = keycount Then keycount = 0
If keycount = Len(passwd) Then VerifyPassword = True: keycount = 0
End Function