Private Sub ToolTip_Draw(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip.Draw
        Dim Text() As String = e.ToolTipText.Split("&")
        Dim FontBold As New Font(e.Font, FontStyle.Bold)
 
        e.Graphics.Clear(Color.Azure)
        e.DrawBorder()
 
        e.Graphics.DrawString(Text(0), FontBold, Brushes.Black, 0, 0, _
          System.Drawing.StringFormat.GenericDefault)
        e.Graphics.DrawString(Text(1), e.Font, Brushes.Black, 0, 15, _
        System.Drawing.StringFormat.GenericDefault)
        e.Graphics.DrawString(Text(2), e.Font, Brushes.Black, 0, 30, _
        System.Drawing.StringFormat.GenericDefault)
        e.Graphics.DrawString(Text(3), e.Font, Brushes.Black, 0, 45, _
        System.Drawing.StringFormat.GenericDefault)
        e.Graphics.DrawString(Text(4), FontBold, Brushes.Black, 0, 75, _
        System.Drawing.StringFormat.GenericDefault)
        e.Graphics.DrawString(Text(5), e.font, Brushes.Black, 0, 90, _
        System.Drawing.StringFormat.GenericDefault)
 
    End Sub