int puerto = 4444;
Private Sub Command1_Click() For x = 1 To 50 List1.AddItem x Next List1.Selected(List1.ListCount - 1) = True List1.Selected(List1.ListCount - 1) = False End Sub