Multi Page hide issue

[Sharid]

Hi

I have a userform (Userform1) on it i have a multipage with tabs. When the userform opens all tabs except 1 is visible

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(0).Visible = True
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
End Sub

I have command buttons on the userform, so if command button 2 is clicked then the second tab, which is Pages.(1) will show and the others including the first will be set to false

Private Sub CommandButton2_Click()
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = True
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
End Sub

My problem is that all the textboxes and buttons etc. on the pages DO NOT show until i click the tab, Is there another way I can do this

 

[DanteAmor]

Try this

Private Sub UserForm_Initialize()
  Me.MultiPage1.Pages(0).Visible = True
  Me.MultiPage1.Pages(1).Visible = False
  Me.MultiPage1.Pages(2).Visible = False
  Me.MultiPage1.Pages(3).Visible = False
End Sub

Private Sub CommandButton1_Click()
  Me.MultiPage1.Pages(0).Visible = True
  Me.MultiPage1.Pages(1).Visible = False
  Me.MultiPage1.Pages(2).Visible = False
  Me.MultiPage1.Pages(3).Visible = False
  MultiPage1.Value = 0
End Sub

Private Sub CommandButton2_Click()
  Me.MultiPage1.Pages(0).Visible = False
  Me.MultiPage1.Pages(1).Visible = True
  Me.MultiPage1.Pages(2).Visible = False
  Me.MultiPage1.Pages(3).Visible = False
  MultiPage1.Value = 1
End Sub

 

[Sharid]

super

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[DanteAmor]

You can compact the code as follows

Private Sub UserForm_Initialize()
  Call VisiblePage(0)
End Sub

Private Sub CommandButton1_Click()
  Call VisiblePage(0)
End Sub
Private Sub CommandButton2_Click()
  Call VisiblePage(1)
End Sub
Private Sub CommandButton3_Click()
  Call VisiblePage(2)
End Sub

Sub VisiblePage(n As Integer)
  With MultiPage1
    .Pages(0).Visible = False
    .Pages(1).Visible = False
    .Pages(2).Visible = False
    .Pages(3).Visible = False
    .Pages(n).Visible = True
    .Value = n
  End With
End Sub