关于父子窗体问题

Question

1. 如何在关闭父窗体时也同时关闭子窗体2.怎么样让子窗体一直在前面，不能被其他窗体掩盖住！
相关代码可不好用
Option Explicit
Private Declare Function SetWindowPos& Lib "user32" (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)Private Sub form1_load()
' 窗口置前
  Dim myval
  myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)
end sub
谢谢！