پرسش کمک برای یوزر فرم

[میثم مقدم نیا]

سلام
ایا امکانش هست بجای مخفی کردن و اشکار کردن اطلاعات یوزر فرم بجای وارد کردن این کد طولانی

Private Sub CommandButton1_Click()

If CommandButton2.Visible = True Then

'TextBox1.Visible = False
'TextBox2.Visible = False
'TextBox3.Visible = True
'TextBox4.Visible = True
'Label1.Visible = False
'Label2.Visible = False
'Label3.Visible = True
'Label4.Visible = True

CommandButton2.Visible = False

Else

'TextBox1.Visible = True
'TextBox2.Visible = True
'TextBox3.Visible = False
'TextBox4.Visible = False
'Label1.Visible = True
'Label2.Visible = True
'Label3.Visible = False
'Label4.Visible = False

CommandButton2.Visible = True

End If

End Sub 

موارد موجود را انتخاب و دو گروه کنیم تا کدمون کوتاهتر بشه

امیدوارم منظورم را رسونده باشم

[میثم مقدم نیا]

دوستا و اساتید عزیز آیا این امکان پذیر هست

[hasa2]

هر بخش رو به عنوان یه ماکروی جدید قرار بده
بعد هرجا که خواستی به جای کپی و پیست کردن همه کدهای اون وسط ؛ فقط دستور اجرای اون ماکرو رو بده.

[میثم مقدم نیا]

ممنون از شما من به کمک Frame مشکلم را حل کردم

Private Sub CommandButton7_Click()

If CommandButton7.Value = True Then
UserForm1.Caption = "ثبت اطلاعات"
Frame01.Visible = False
Frame02.Visible = True
Else
UserForm1.Caption = "مشخصات افرا د تحت تکفل"
Frame01.Visible = True
Frame02.Visible = False
End If

End Sub