g As Long) As Long
Private Const SWW_HPARENT = (-8)

Private Sub Form_Load()
    m_cT.Color(eActiveStartColor) = &amp;H40C0E0
    m_cT.GradientForm Me
    Me.Show
    FormOnTopOfForm Me, mfrmMain, True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    m_cT.GradientReleaseForm
    FormOnTopOfForm Me, mfrmMain, False
End Sub
Sub FormOnTopOfForm( _
        frmTopMost As Form, _
        frmParent As Form, _
        bState As Boolean _
    )
'************************************