Dim drp As WinForm.DropDownBox =
e.Sender Dim vals As String() = {"工商银行","建设银行","农业银行","中国银行"} Dim val As
String = drp.value Dim index As
Integer = -1
For i As
Integer = 0
To vals.Length - 1
If val = vals(i)
Then
index = i
Exit
For
End
If
Next
index = index + 1
If index > 3
Then
index = 0
End
If
drp.Value = vals(Index)