Ver Mensaje Individual
  #4 (permalink)  
Antiguo 04/02/2005, 13:08
chcma
 
Fecha de Ingreso: junio-2003
Ubicación: Asturias
Mensajes: 2.429
Antigüedad: 21 años, 8 meses
Puntos: 7
Bueno, para ser un poco más claro, voy a mostrarles como tengo el código.

Dim Hebra As Thread

Private Sub Form1_Load ....
Servidor.Start()
Hebra = New Thread(AddressOf Recibiendo)
Hebra.Start()
End Sub

Private Sub Form1_Closing ....
If Hebra.IsAlive Then
Hebra.Abort()
End If
Servidor.Stop()
Application.Exit()
End Sub
__________________
Charlie.