DUVIDA COM LISTBOX

TECLA 21/08/2010 19:30:47
#350886

Explique melhor o que deseja fazer.

GERARDA 21/08/2010 22:14:23
#350903 Resposta escolhida

ve se é isso que vc quer fazer

comece um projeto novo
coloque uma listbox
dois command botao

e cole esse codigo

Private Sub Command1_Click()
If List1.ListIndex > 0 Then List1.ListIndex = List1.ListIndex - 1
End Sub

Private Sub Command2_Click()
If List1.ListIndex < List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1
End Sub

Private Sub Form_Load()
Command1.Caption = [Ô]-[Ô]
Command2.Caption = [Ô]+[Ô]
Dim contador As Double
List1.Clear
For contador = 0 To 49
List1.AddItem [Ô]item numero [Ô] & contador
Next
List1.ListIndex = 25
End Sub

achei bem legal

da uma olhada