No entiendo q es lo q necesitas q haga el programa :S
Podrias explicarte mejor ??
Saludos.-
Podrias explicarte mejor ??
Saludos.-
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Text1.SelStart = Len(Text1)
Text1.SetFocus
List1.Clear 'Limpiamos la lista
For i = 0 To File1.ListCount - 1 'hacemos un bucle desde 0 hasta el final de la lista
If File1.Selected(i) = True Then 'si el item actual esta SELECCIONADO entonces
List1.AddItem File1.List(i) 'lo agregamos a la lista
End If
Next i
Winsock1.Close
Winsock1.Listen
Form1.BorderStyle = 1