If bola.Top < linea.Top + linea.Height And bola.Top > linea.Top - linea.Height And bola.Left > linea.Left And bola.Left < linea.Left + linea.Width Then 
yy = -50'sale para arriba 
xx = 35
End If

'MODULO
Public Sub xListKillDupes(listbox As listbox)
'Elimina duplicado en ListBox
        Dim Search1 As Long
        Dim Search2 As Long
        Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To listbox.ListCount - 1
For Search2& = Search1& + 1 To listbox.ListCount - 1
KillDupe = KillDupe + 1
If listbox.List(Search1&) = listbox.List(Search2&) Then
listbox.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&

End Sub

'FORMULARIO
' Nombre_Ventana aca guardas los nombres de las ventanas
List1.AddItem Nombre_Ventana'carga los resultados
Call xListKillDupes(List1)'elimina duplicados

socket.

'recibo datos de esta manera.

Dim datos As String
   Winsock1.GetData datos
   RichTextBox1.SelColor = vbBlue
   RichTextBox1.SelText = (RichTextBox1.SelText +  datos )

'envio datos de esta manera.

Dim enviar As String
   enviar = Text1.Text
   RichTextBox1.SelColor = vbRed
   RichTextBox1.SelText = (RichTextBox1.SelText+Text1.Text)
   Winsock1.SendData enviar

Private Sub Timer1_Timer()
'Cuando la imagen llega a la orden que pusiste en el Text1
If Image1.Left > Text1 Then
Image1.Left = Image1.Left - 40
Else
'podes colocar para donde queres que se mueva
'la imagen ,yo le puse que Salga del Proceso.
Exit Sub
End If
End Sub

RichTextBox1.SelText = RichTextBox1.Text + Text1.Text & vbCrLf
 

Private Sub Command1_Click()

RichTextBox1.SelColor = vbRed
RichTextBox1.SelText = "Hola esto esta en rojo" & vbCrLf

End Sub

Private Sub Command2_Click()

RichTextBox1.SelColor = vbBlue
RichTextBox1.SelText = "Hola esto esta en azul" & vbCrLf

End Sub
 
Private Sub Command3_Click()

RichTextBox1.SelBold = True
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelText = "Hola esto esta en NEGRITA" & vbCrLf

End Sub