When I click any of the 3 spinners, the Msgbox is completely ignored and bypassed. See below code excerpt:
Dim spnCode1, spnCode2, spnCode3 As Spinner
.
.
spnCode1.Initialize("MySpinnerCode")
spnCode2.Initialize("MySpinnerCode")
spnCode3.Initialize("MySpinnerCode")
Sub MySpinnerCode_ItemClick (Position As Int, Value As Object)
Dim Send As Spinner
Send=Sender
Msgbox(Send.SelectedItem.SubString2(0,2),"") 'displays the first 2 characters of the string: 0=1st chr, 1 is 2nd, 2 is excluded
End Sub
Dim spnCode1, spnCode2, spnCode3 As Spinner
.
.
spnCode1.Initialize("MySpinnerCode")
spnCode2.Initialize("MySpinnerCode")
spnCode3.Initialize("MySpinnerCode")
Sub MySpinnerCode_ItemClick (Position As Int, Value As Object)
Dim Send As Spinner
Send=Sender
Msgbox(Send.SelectedItem.SubString2(0,2),"") 'displays the first 2 characters of the string: 0=1st chr, 1 is 2nd, 2 is excluded
End Sub