Dim tab As Janus.Windows.UI.Tab.UITabPage = _
            e.Page
        If Not tab.Tag Is Nothing Then
            Try
                Dim rec As System.Drawing.Graphics = Me.CreateGraphics
                rec.FillRectangle(Brushes.Aqua, tab.Location.X, _
                    tab.Location.Y, tab.Size.Width, tab.Size.Height)
                Dim f As System.Drawing.Font = New System.Drawing.Font("Arial", _
                  20)
                Dim str As String = "Passwort" & Environment.NewLine & _
                    "geschützter" & Environment.NewLine & _
                    "Bereich"
                Dim sz As SizeF = rec.MeasureString(str, f)
                rec.DrawString(str, f, Brushes.SaddleBrown, _
                    (tab.Width - sz.Width) / 2, (tab.Height - sz.Height) / 2)
                Dim frm As New frmBenutzerAbfrage(CInt(tab.Tag))
                frm.ShowDialog()
.
.
.