For i = 0 To 3
cmdTest(i).Top = Activity.Height-100dip
ButtonLocation = ((100+ButtonSpacing)*(1+i))
cmdTest(i).Left = ButtonLocation
cmdTest(i).Text = "TEST " & (i+1)
cmdTest(i).Width = 100dip
cmdTest(i).Height = 100dip
If i = TestNo-1 Then
cmdTest(i).TextColor = Colors.Green
Else
cmdTest(i).TextColor = Colors.Black
End If
Next