= UserControl.ScaleX(x, fromScale, toScale)
End Property
Public Property Get ScaleY(y As Single, fromScale As ScaleModeConstants,
 toScale As ScaleModeConstants)
   ScaleY = UserControl.ScaleY(y, fromScale, toScale)
End Property

Private Sub pSetFont(iFnt As IFont)
   Set m_fnt = iFnt
   Set lblLookFor.Font = m_fnt
   Set cmdBrowse.Font = m_fnt
   Set lblSelect.Font = m_fnt
   If Not (m_hWnd = 0) Then
      ' Ensure the control has the correct font:
      SendMessageByLong m_hWnd, WM_SETFONT, m_fnt.hFont, 1