17-02-2009, 01:30 PM
Apologies for the necro but I had a look at this and it doesn't work anymore.
In HandleKeyPresses
change that little bit to
In HandleKeyPresses
Code:
If LenB(ChatText) = 0 Then
change that little bit to
Code:
If LenB(ChatText) = 0 Then
If KeyAscii = vbKeyReturn Then
If frmMirage.txtChat.Visible = True Then
frmMirage.txtChat.Visible = False
frmMirage.txtMyChat.Visible = False
Else
frmMirage.txtMyChat.Visible = True
frmMirage.txtChat.Visible = True
SetFocusOnChat
End If
Exit Sub
End If
End If