Access in UserControl Member's Properties

Question

I create a UserControl with three Panels I add this UserControl in my main Form but i have then the problem that i can't choose which panel to appear in my main form. Exccactly i have this code below to make visible my Panel1

Public Function Pan1()

    Panel3_Paint.Visible = False
    Panel2_Paint.Visible = False
    Panel1_Paint.Visible = True




    Return 0
End Function

So after i click in a stripMenu i tried to appear the first panel with this function in my Form but finally in my main Form appears the third Panel.

i use my function in this way

    Private Sub ClassAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClassAToolStripMenuItem.Click

              UserControl11.Visible = True
              Call Pan1()
    End Sub`

I try when i click a specific button in menu to show the appropriate panel That's why i try to do it with this function but i have the problem that in my form appears only the third panel.

My UserControl Code

Public Class UserControl1
Public Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles Panel3.Paint

End Sub

Public Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint

End Sub

Public Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

End Sub

End Class

I define also my UserControl and Panels in my Form.vb this way

Public UserControl1 As New UserControl
Public Panel1_Paint As New Panel
Public Panel2_Paint As New Panel
Public Panel3_Paint As New Panel

Answer 1

So my problem is solved. I can't access in Panel Properties, that's why i create a Public Sub in my UserControl.vb and use it in my Form. This code is written in my UserControl.vb

 Public Sub Pan1()
 Panel3_Paint.Visible = False
Panel2_Paint.Visible = False
Panel1_Paint.Visible = True



End Function

And then i call my Sub in my Form in this way

Private Sub ClassAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClassAToolStripMenuItem.Click


    UserControl11.Visible = True
    UserControl11.Pan1()


End Sub