
04/02/2005, 13:08
|
| | 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. |