load شدن دو فرم به طور همزمان

مي خوام دو فرم رو همزمان load كنم تا موقعي كه در اولين فرم نامي وارد نشد فرم دوم فعال نشه مثل hyper terminal خود ويندوز(اجراش كن تا دقيقا بدوني چي ميگم)
show vb modal هر دو فرم رو همزمان نشون نمي ده

مي خوام وقتي يك ارتباط رو ذخيره مي كنم همراه با نام و شماره تلفن ذخيره بشه
و موقعي كه بازش مي كنم با همون برنامه ايي كه نوشتم باز بشه نه hyper terminal ويندوز.

کد:

---

In Module

Option Explicit

Sub Main()
Form1.Show
Form2.Show vb modal
End Sub

---

کد:

---

In Form1

Option Explicit

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Form1.Left = 3000
Form1.Top = 1995
Form1.Height = 4980
Form1.Width = 7785
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

---

کد:

---

In Form2

Option Explicit

Private Sub Command1_Click()
Form2.Hide
Form1.Enabled = True
Form1.SetFocus
End Sub

Private Sub Form_Activate()
Form1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Form_Load()
Form2.Left = 4200
Form2.Top = 3000
Form2.Height = 2115
Form2.Width = 5430
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Command1_Click
End Sub

---

سپس به قسمت Project Properties برو و در قسمت Stratup Object گزینه Sub Main را انتخاب کن.

یه نکته جالب !
اگر یه فرم به صورت
vbmodual یا غیره باز بشه تو taskmanager نمی یاد !

ممنونم از جوابتون