Ett problem som jag har är detta.
Jag vill kunna använda flera tecken än bara ett.
Exepelvis ett ord på 5 tecken, hur löser man det?

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then 'a
Form2.Show
Me.Hide
End If
End Sub



Sören

<code>
Private Sub Form_KeyPress(KeyAscii As Integer)
Const sPassword As String = "skapunk"
Static iPos As Integer
iPos = iPos + 1
If KeyAscii <> Asc(Mid$(sPassword, iPos, 1)) Then
iPos=0
ElseIf iPos = Len(sPassword) Then
Form2.Show
Me.Hide
End If
End Sub
</code>
Inte testat. Bör funka. <br><br>

/Niklas Jansson

Tusen tack det löste mitt problem...