Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.ToolTip1.IsBalloon = True
        ToolTip1.ToolTipTitle = "Was kann ich für Sie tun?"
        Me.ToolTip1.Show("")
    End Sub