Al azar

[culd]

Código vb:

Private Sub Command1_Click()
Dim Numero as Integer
Numero = Int(List1.ListCount * Rnd + 0)
List1.ListIndex = Numero
Select Case Numero
   Case 0:
        MsgBox ""
   Case 1:
        MsgBox ""
End Select
End Sub