'Create Form1, button0 to button3,
'left and right button arCOLs, Arraylist1, and label1
Sub Globals
'Declare the global variables here.
COL=1
End Sub
Sub App_Start
Form1.Show
MouseOnButton
BControl(COL-1) 'initialize selection
End Sub
''''''''''''''''''''''''''FOR BUTTON/PPC KEYS''''''''''''''''''''''''''''''''''''
Sub RightArrow_Click 'or driven by PPC keys
COL = (COL ) Mod 4 + 1 'loops to right direction
BControl(COL-1)
End Sub
Sub LeftArrow_Click 'or driven by PPC keys
COL = (COL + 2) Mod 4 + 1 'loops to left direction
BControl(COL-1)
End Sub
'''''''''''''''''''''''''''''''PROCESSES'''''''''''''''''''''''''''''''
Sub BControl(x)
For i=0 To 3
Control("button"&i,button).Color=212,208,200
Next
Control("button"&x,button).Color=cGreen
label1.Text="You are at button"&x 'or do something
End Sub
''''''''''''''''''''''''''FOR MOUSE''''''''''''''''''''''''''''''''''''
Sub MouseOnButton
For i=0 To 3 'record button names to arraylist1
Arraylist1.Add("button"&i)
Next
For i=0 To Arraylist1.Count-1 'to indicate where control mouse click
AddEvent (Arraylist1.Item(i), click, "ButtonClick")
Next
End Sub
Sub ButtonClick 'button control mouse click
s = Control (Sender).Name
For i=0 To Arraylist1.Count-1
If s=Control(Arraylist1.Item(i)).Name Then
COL=i+1
BControl(COL-1)
End If
Next i
End Sub