Attribute VB_Name = "SetMyParent"

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Sub SetItParent(nChild As Long, nNewParent As Long)

  Dim nRet As Long
      nRet = SetParent(nChild, nNewParent)
  If nRet = 0 Then
     MsgBox "設置父窗體錯誤！  ", vbInformation
     Exit Sub
  End If
  
End Sub