setmyparent.bas

星级酒店管理系统（附带系统自写控件源码）

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