اريد تشغيل اي فورم من خلال Object

السلام عليكم

جرب هذه الطريقة

اولا كون Form1 و Form2 و في form1 كون command1 واكتب في الفورم الاولة هذا الكود

Dim MyForm As Form

Private Sub Command1_Click()
Set MyForm = Form2
MyForm.Show 1
End Sub

اخي الكريم Hatam جزاك الله كل خير على الرد

ولكن يبدو انني لم اصف المشكلة بشكل واضح واعتذر على ذلك ما اريده بالضبط هو ان يكون اسم الفور Form2 من خلال Variable اي متغير

dim myform as form
dim myvar as string

ومن داخل Cmd
myvar="Form2"
set myform =myvar

بحيث ان يكون اسم الشاشة التي اريد اظهارها متغير اي يمكن وضع جميع الشاشات داخل جدول ومناداته مباشرة بناء على جمل If معينة

ارجو ان اكون قد وصفت المشكلة بشكل واضح حتي اسهل عليكم

وجزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته

جرب هذا الكود ربما يكون قريب من الحل :

Dim myform As Form
Dim myvar As String

Sub show_form(form_name As String)

Select Case LCase(form_name)
    Case "form2":
        Set myform = Form2
    Case "form3":
        Set myform = Form3
    Case "form4":
        Set myform = Form4
End Select
myform.Show 1

End Sub

Private Sub Command1_Click()
myvar = "Form2"
show_form (myvar)
End Sub

جزاك الله على اهتمامك ولكني بهرب من هذا الكود لأني كنت عايز انادي كل شاشات النظام من داخل جدول دون الرجوع لجملة Select او If

جزاك الله خيراً على المحاولة