
MSN: adolfo_guimaraes@hotmail.com
Posted 07/09/2004, 22:35
Posted 08/09/2004, 11:19
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long Private Sub Command1_Click() 'Set Form2 on top BringWindowToTop Form2.hwnd End Sub Private Sub Form_Load() Form2.Visible = True End Sub '''''''''''''' 'in form2 Private Sub Command1_Click() 'Set Form1 on top BringWindowToTop Form1.hwnd End Sub
Posted 09/09/2004, 01:04
Olá Macul,Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long Private Sub Command1_Click() 'Set Form2 on top BringWindowToTop Form2.hwnd End Sub Private Sub Form_Load() Form2.Visible = True End Sub '''''''''''''' 'in form2 Private Sub Command1_Click() 'Set Form1 on top BringWindowToTop Form1.hwnd End Sub
Posted 09/09/2004, 17:30
Posted 14/09/2004, 15:01
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)