 Set Font(ByVal iFnt As IFont)
   pSetFont iFnt
   PropertyChanged "Font"
End Property

Public Property Get ScaleMode() As ScaleModeConstants
   ScaleMode = UserControl.ScaleMode
End Property
Public Property Let ScaleMode(ByVal eMode As ScaleModeConstants)
   If Not (UserControl.ScaleMode = eMode) Then
      UserControl.ScaleMode = eMode
      PropertyChanged "ScaleMode"
   End If
End Property
Public Property Get ScaleX(x As Single, fromScale As ScaleModeConstants,
 toScale As ScaleModeConstants)
   ScaleX 