Activate or select Userform Page 1. HELP!

[pedie]

Hi!

Below is my current code:
I cant see my controls in page1 untill i manually click on it...
is there a to make it click or show my button[controls] as it starts up?


Thanks for hellping!

[/FONT]
[FONT=Courier New]Private Sub UserForm_Initialize()
 DISALL
 Me.MultiPage1.Value = 0
 Me.MultiPage1.Pages(0).Enabled = True
 Me.Repaint 
End Sub
Sub DISALL()
Me.MultiPage1.Pages(0).Enabled = False
Me.MultiPage1.Pages(1).Enabled = False
Me.MultiPage1.Pages(2).Enabled = False
Me.MultiPage1.Pages(3).Enabled = False
End Sub
[/FONT]
[FONT=Courier New]

 

[mikerickson]

I'm guessing that since Page(0) is disabled at the time the line MultiPage.Value = 0 is not doing anything.

Switching the order of the lines fixed it for me

Private Sub UserForm_Initialize()
    Call DissAll
    With MultiPage1
        .Pages(0).Enabled = True
        .Value = 0
    End With
End Sub

 

[pedie]

Great! Mike, sorry i didnt pay enough attention there..