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
                    AddHandler uCtrl.Paint, AddressOf uCtrl_Paint
                    uCtrl.Tag = "Passwortschutz"
                    uCtrl.Dock = DockStyle.Fill
                    tPage.Controls.Add(uCtrl)
                    uCtrl.Refresh()
                End If
 
                uCtrl.BringToFront()
                uCtrl.Show()

Private Sub uCtrl_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs)
        Using e
            Dim rect As New Rectangle(0, 0, _
                sender.Size.Width, sender.Size.Height)
            e.Graphics.FillRectangle(New SolidBrush(Color.Tan), rect)
            Dim str As String = "Passwortgeschützter Bereich"
            Dim strFormat As New StringFormat()
            strFormat.Alignment = StringAlignment.Center
            e.Graphics.DrawString(str, New Font("Rockwell Extra Bold", 32), _
                New SolidBrush(Color.Red), rect, strFormat)
        End Using
    End Sub