Sub ColourButtons (Value As Activity)
Dim DummyB As Button
Dim DummyP As Panel
For i = 0 To Value.NumberOfViews - 1
If Value.GetView(i) Is Button Then
DummyB = Value.GetView (i)
DummyB.TextColor = main.ButtonColour
End If
If Value.GetView (i) Is Panel Then ColourButtonsP (Value.GetView (i))
Next
End Sub
Sub ColourButtonsP (Value As Panel)
Dim DummyB As Button
Dim DummyP As Panel
For i = 0 To Value.NumberOfViews - 1
If Value.GetView(i) Is Button Then
DummyB = Value.GetView (i)
DummyB.TextColor = main.ButtonColour
End If
If Value.GetView (i) Is Panel Then ColourButtonsP (Value.GetView (i))
Next
End Sub