7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
TopHead 2000-06-22
- 打赏
- 举报
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Click()
SetParent Form2.hWnd, Form1.hWnd
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Click()
SetParent Form2.hWnd, Form1.hWnd
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
