çözülmüş hali ektedir.
dikkat edilmesi gereken en önemli husus, çok sayıda açılacak formun hiç kod barındırmasa bile mutlaka modüle sahip olması gerektiriğidir

Option Compare Database
Dim frmX As Form
Private Sub Komut0_Click()
Set frmX = New Form_Form1
frmX.SetFocus
End Sub