Declare Function GetWindowDC Lib "user32" (ByVal hWnd As System.IntPtr) As _
      System.IntPtr
    Private Shared m_GlobalForm As frmToolTip
    Dim DauerZeige As Integer
    Dim Con As Control
    Public Shared Property GlobalForm() As frmToolTip
        Get
            If m_GlobalForm Is Nothing OrElse m_GlobalForm.IsDisposed Then
                m_GlobalForm = New frmToolTip
            End If
            Return m_GlobalForm
        End Get
        Set(ByVal Value As frmToolTip)
            m_GlobalForm = Value
        End Set
    End Property
 
    Protected Overrides ReadOnly Property CreateParams() As _
      System.Windows.Forms.CreateParams
        Get
            Const CS_DROPSHADOW As Object = &H20000
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style Or &H56000000
            cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
            Return cp
        End Get
    End Property

cp.Style = cp.Style Or &H56000000