Private tt As New System.Windows.Forms.ToolTip

With tt
            'Eigenschaften zuweisen
            .BackColor = Color.PaleGreen
            .IsBalloon = True
            .ToolTipTitle = "Info!"
            .ToolTipIcon = ToolTipIcon.Info
            .AutoPopDelay = 1500
            .InitialDelay = 100
            .ReshowDelay = 100
            .ShowAlways = False
End With

Private Sub ShowToolTip_MouseOverHandler(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs)  Handles _
    ToolStripStatusLabel1.MouseMove
 
        'Nimmt den Namen des ToolStripItems auf für den der momentan der 
        ' ToolTip angezeigt wird
        Static ShownItemName As String
        Dim tstItem As System.Windows.Forms.ToolStripItem = CType(sender, _
          System.Windows.Forms.ToolStripItem)
        'Falls für das ToolStripItem bereits der ToolTip angezeigt wird.
        If tstItem.Name = ShownItemName Then Exit Sub
        Dim mes As String = ""
        'Individuell auf das ToolStripItem reagieren über dem sich der 
        ' Mauscursor befindet
        Select Case tstItem.Name
 
            'ToolStripStatusLabel 1
            Case "ToolStripStatusLabel1"
                mes = "Versionsstatus" 
         End Select
 
        'Zeige relativ zur Position des ToolStripItems den ToolTip auf dem 
        ' Status/ToolStrip
        Me.tt.Show(mes, tstItem.GetCurrentParent, tstItem.Bounds.Left + _
        CInt(tstItem.Bounds.Width / 2), CInt(tstItem.Bounds.Bottom / 2), 1500)
        ShownItemName = tstItem.Name
    End Sub

VB@rchiv its the Best