Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim Data() As String
 
server.GetData datos
 
Select Case LCase(Split(datos, "|")(0))
 
Case LCase("mensaje")
 
'''''''''''''
 
 
If (Split(datos, "|")(2)) = 1 Then
        MsgBox Split(datos, "|")(1), vbYesNoCancel, Split(datos, "|")(3)
     '''''
ElseIf (Split(datos, "|")(4)) = 1 Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!
 
''''''''''''
 
Else
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
 
End If
''''''''''''
End Select
 
End Sub

Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option1.Value
 
 
ws.SendData datos
 
End Sub