Protected Overrides Sub OnPaint(ByVal pe As _
          System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(pe)
            Dim g As Graphics = pe.Graphics
 
            If Not Me._date = Nothing Then
                g.DrawString(_date.ToString("dd.MM.yyyy HH:mm"), New Font( _
                  Me.Font, FontStyle.Bold), Brushes.Black, 50, 20)
            End If
            If Not Me._bezeichnung Is Nothing Then
                g.DrawString(Me._bezeichnung, Me.Font, Brushes.Black, 50, 40)
            End If
        End Sub

Gru?
(Bash)