chat problem

[Leighland]

Code:

Private Sub CHATBOXNAME_KeyPress(KeyAscii As Integer)
    Call HandleKeypresses(KeyAscii)
    If MyText = "" Then CHATBOXNAME.Text = ""
End Sub

That should work, change CHATBOXNAME to the name of your chat box. Any problems, ask.