|
'This program needs two forms, two buttons and a module
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
'in form1
'Set Form2 on top
BringWindowToTop Form2.hwnd
End Sub
Private Sub Form_Load()
'in form1
Form2.Visible = True
End Sub
Private Sub Command1_Click()
'in form2
'Set Form1 on top
BringWindowToTop Form1.hwnd
End Sub
|
|