Public Class frmToolTip
    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
 
    Public Sub Zeigen(Control As Control, Text As String, ZeigeDauer As Integer)
        If tmrToolTip.Enabled = True Or Hauptfenster.TipShow = True Then Exit _
          Sub
        Me.Location = New Point(Cursor.Position.X + 5, Cursor.Position.Y + 5)
        Me.lblToolTip.Text = Text
        Me.lblToolTip.ForeColor = Color.FromArgb(87, 87, 87)
        If TypeOf Control Is ListView Then
            If CType(Control, ListView).Items.Count > 0 Then
                Con = Control
                tmrToolTip.Interval = 1
                DauerZeige = ZeigeDauer : tmrToolTip.Enabled = True
                Call frmToolTip_Load(Nothing, Nothing)
            Else
                Exit Sub
            End If
        ElseIf TypeOf Control Is Label Then
            Con = Control
            tmrToolTip.Interval = 1
            DauerZeige = ZeigeDauer : tmrToolTip.Enabled = True
            Call frmToolTip_Load(Nothing, Nothing)
        ElseIf TypeOf Control Is PictureBox Then
            Con = Control
            tmrToolTip.Interval = 1
            DauerZeige = ZeigeDauer : tmrToolTip.Enabled = True
            Call frmToolTip_Load(Nothing, Nothing)
        End If
    End Sub