Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3'把上面的setwindowpos那句放到你的子窗口的LOAD里就行了。
'记得给我加分。
'记得给我加分。
Private Sub Command1_Click()
Form3.Show
Form2.Show vbModal, Form3
End Sub
Form2.Show , Form3