' Declare a global variable for the pseudo class
Private AltColorPseudoClass As PseudoClass
.
.
.
'Initialize the class in AppStart with the name of the PseudoClass
AltColorPseudoClass.Initialize("altcolor")
'Then find an appopriate place to update it
Private Sub Label1_MouseEntered (EventData As MouseEvent)
AltColorPseudoClass.SetState(Label1,True)
End Sub
Private Sub label1_MouseExited (EventData As MouseEvent)
AltColorPseudoClass.SetState(Label1,False)
End Sub