05/06/2004, 10:58
|
 | | | Fecha de Ingreso: septiembre-2003 Ubicación: Trujillo
Mensajes: 23
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| 'Esto me corre
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next
End Sub
Private Sub Form_Load()
For i = 65 To 90
Me.List1.AddItem Chr(i)
Next
End Sub |