Admin Menu done for you. (MS4) (TESTED)

[Dane]

you forgot Else.. You put a space instead...(I think.)

If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 0 Then
frmAdmin.Visible = False
Else
frmAdmin.Visible = True
End If
End If