|
'This program needs two forms, named frmChild and frmParent
'in frmParent
Private Sub Form_Load()
frmChild.Show
End Sub
Private Declare Function SetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
Private lngOrigParenthWnd As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.Width = frmParent.Width / 4
Me.Height = frmParent.Height / 4
lngOrigParenthWnd = SetWindowWord(Me.hwnd, -8, frmParent.hwnd)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowWord Me.hwnd, -8, lngOrigParenthWnd
End Sub
|
|