Public Class Form1
    Private WithEvents TT As New ToolTip
    Private Sub TT_Draw(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawToolTipEventArgs) Handles TT.Draw
        Select Case e.AssociatedControl.Name
            Case "Button1"
                e.Graphics.Clear(Color.Red)
                e.Graphics.DrawIcon(SystemIcons.Information, 5, 5)
                e.Graphics.DrawString(Now.ToLongDateString, Me.Font, _
                  Brushes.White, 40, 15)
            Case "Button2"
                e.Graphics.Clear(Color.Yellow)
                e.Graphics.FillEllipse(Brushes.Red, 5, 5, 30, 30)
                e.Graphics.DrawString(Now.ToString, Me.Font, Brushes.Black, 40, _
                  15)
        End Select
    End Sub
 
    Private Sub TT_Popup(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PopupEventArgs) Handles TT.Popup
        e.ToolTipSize = New Size(160, 40)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TT.OwnerDraw = True
        TT.SetToolTip(Button1, " ")
        TT.SetToolTip(Button2, " ")
    End Sub
End Class