Private Sub DatenTMI_Paint(sender As Object, _
        e As System.Windows.Forms.PaintEventArgs) Handles DatenTMI.Paint
 
     Dim ctl As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
 
     Dim brushred As New Drawing.SolidBrush(Color.Red)
     Dim brushwhite As New Drawing.SolidBrush(Color.White)
     Dim brushblack As New Drawing.SolidBrush(Color.Black)
 
     e.Graphics.FillRectangle(brushred, e.ClipRectangle)
     e.Graphics.FillEllipse(brushwhite, e.ClipRectangle)
     e.Graphics.DrawString(ctl.Text, Me.Font, brushblack, 20, 4)
 
     brushred.Dispose() : brushwhite.Dispose(): brushblack.dispose()
 
End Sub