nd If
   
   m_bShowing = True
   
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   ClearUp 1
   ClearUp 0
End Sub

Private Sub Form_Resize()
   If (m_tOSV.dwMajorVersion &gt; 4) Or _
      (m_tOSV.dwMajorVersion = 4) And (m_tOSV.dwMinorVersion &gt;= 10) Then
      If (GetDeviceCaps(Me.hDC, BITSPIXEL) &gt; 8) Then
         Me.Cls
         Dim tR As RECT
         tR.left = 0
         tR.top = 0
         tR.right = Me.ScaleWidth
         tR.bottom = Me.ScaleHeight
         Gr