Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With ToolTip1
            .ToolTipTitle = "InfoBox"
            .ToolTipIcon = ToolTipIcon.Info
            .AutomaticDelay = 0
            .BackColor = Color.Blue
            .ForeColor = Color.Yellow
        End With
    End Sub
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ToolTip1.Show("X = " & e.X.ToString & "  Y = " & e.Y.ToString, Me, e.X, _
        e.Y, 2000)
    End Sub
End Class