Dim uCtrlVorhanden As Boolean = False
                Dim uCtrl As New UserControl
                For Each ctrl As Control In tPage.Controls
                    If TypeOf (ctrl) Is UserControl Then
                        If ctrl.Tag = "Passwortschutz" Then
                            uCtrl = ctrl
                            uCtrlVorhanden = True
                            Exit For
                        End If
                    End If
                Next
                If uCtrlVorhanden = False Then
                    uCtrl.Tag = "Passwortschutz"
                    uCtrl.Dock = DockStyle.Fill
                    tPage.Controls.Add(uCtrl)
                    Dim rec As System.Drawing.Graphics = uCtrl.CreateGraphics
                    rec.FillRectangle(Brushes.Aqua, tPage.Location.X, _
                        tPage.Location.Y, tPage.Size.Width, tPage.Size.Height)
                    Dim f As System.Drawing.Font = New System.Drawing.Font( _
                      "Arial", 35)
                    Dim str As String = "Passwortgeschützter Bereich"
                    Dim sz As SizeF = rec.MeasureString(str, f)
                    rec.DrawString(str, f, Brushes.Black, _
                        (uCtrl.Width - sz.Width) / 2, _
                        sz.Height * 2)
                    rec.Dispose() : f.Dispose()
                End If
 
                uCtrl.BringToFront()
                uCtrl.Show()