Ok me voy a fijar...
EDIT: Osea, en Sendtext hay muchas cosas que dicen VBkey! Nose que modificar ni nada, no quiero tocar para no mandarme cagada. Pongo el codigo de send text mio:
Private Sub SendTxt_Change()
'**************************************************************
'Author: Unknown
'Last Modify Date: 3/06/2006
'3/06/2006: Maraxus - impedí se inserten caractéres no imprimibles
'**************************************************************
If Len(SendTxt.Text) > 160 Then
stxtbuffer = "Soy un cheater, avisenle a un gm"
Else
'Make sure only valid chars are inserted (with Shift + Insert they can paste illegal chars)
Dim i As Long
Dim tempstr As String
Dim CharAscii As Integer
For i = 1 To Len(SendTxt.Text)
CharAscii = Asc(mid$(SendTxt.Text, i, 1))
If CharAscii >= vbKeySpace And CharAscii <= 250 Then
tempstr = tempstr & Chr$(CharAscii)
End If
Next i
If tempstr <> SendTxt.Text Then
'We only set it if it's different, otherwise the event will be raised
'constantly and the client will crush
SendTxt.Text = tempstr
End If
stxtbuffer = SendTxt.Text
End If
End Sub
Private Sub SendTxt_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = vbKeyBack) And _
Not (KeyAscii >= vbKeySpace And KeyAscii <= 250) Then _
KeyAscii = 0
End Sub
OFF: Gracias
