Public Sub Move(ByVal vLeft As Single, ByVal vTop As Single, ByVal vWidth As _
  Single, ByVal vHeight As Single)
  On Error Resume Next
  UserControl.ScaleLeft = vLeft
  UserControl.ScaleTop = vTop
  UserControl.ScaleWidth = vWidth
  UserControl.ScaleHeight = vHeight
End Sub