' Type sETInfo(FieldName As String, Field As EditText, NextTab As EditText) ' <-- this is defined in global section just copied here
Sub SetTabOrder(FieldName As String, Field As EditText, NextTab As EditText)
Dim ETInfo As sETInfo
ETInfo.Initialize
ETInfo.FieldName = FieldName
ETInfo.Field = Field
ETInfo.NextTab = NextTab
Field.Tag = ETInfo
End Sub
Sub SetupFields
mFWC_FWName.Color = Colors.White
mFWC_StartsAtGame.Color = Colors.White
mFWC_NumberOfGames.Color = Colors.White
mFWC_Cost.Color = Colors.White
mFWC_HandicapBase.Color = Colors.White
mFWC_HandicapPercent.Color = Colors.White
mFWC_BonusPins.Color = Colors.White
'-------------------------------------------------------
' Set TabOrder
'-------------------------------------------------------
SetTabOrder("mFWC_FWName", mFWC_FWName, mFWC_StartsAtGame)
SetTabOrder("mFWC_StartsAtGame", mFWC_StartsAtGame, mFWC_NumberOfGames)
SetTabOrder("mFWC_NumberOfGames", mFWC_NumberOfGames, mFWC_Cost)
SetTabOrder("mFWC_Cost", mFWC_Cost, mFWC_HandicapBase)
SetTabOrder("mFWC_HandicapBase", mFWC_HandicapBase, mFWC_HandicapPercent)
SetTabOrder("mFWC_HandicapPercent", mFWC_HandicapPercent, mFWC_BonusPins)
SetTabOrder("mFWC_BonusPins", mFWC_BonusPins, mFWC_FWName)
End Sub