ys
      End If
   End If
   
End Sub

Private Sub UserControl_Resize()
   UserControl.Width = 36 * Screen.TwipsPerPixelX
   UserControl.Height = 36 * Screen.TwipsPerPixelY
End Sub

Private Sub UserControl_Terminate()
    Destroy
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Dim i As Long
Dim iCount As Long
Dim b() As Byte
Dim lSize As Long
Dim lStart As Long
Dim hIcon As Long
Dim bEmpty As Boolean
Dim lHDC As Long
Dim sKeys As String
Dim lVersion As Long

   lVersion = (App.Major