ها هو
كود :
Dim Form1 As Form1
Form1.Show()
هذا الكود يتم اضافته الى Module ليتم فتح الفروم لاكن لادرى لمازا لا يعمل
Sub ShowForm(ByVal FormName As Form)
FormName.Show()
FormName.Activate()
End Sub
كود :
Dim Form1 As [b][u][color=#FF0000]New[/color][/u][/b] Form1
Form1.Show()
ضع كلمة New قبل اسم الكائن الذي تريد أن تستخدم