i got it working, instead of using onclick, i used on mouseup.
but i have a new problem:
Private Sub ToggleLink_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsNull(Me.Username) Or Me.Username = "" Then
MsgBox "Please enter a username first", vbOKOnly, "Invalid...