Hot keys

[Nean]

I'm not completely sure, but try studying the Keypress sub.

Code:

Private Sub txtChat_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        If LenB(Trim$(txtChat.Text)) > 0 Then
            Call GlobalMsg(txtChat.Text, White)
            Call TextAdd(frmServer.txtText, "Server: " & txtChat.Text, True)
            txtChat.Text = vbNullString
        End If
    End If
End Sub

That runs when enter is pushed. Uhm. Hope that helps any.