As vezes precisamos de programas que mantenham-se na frente de todas as janelas, ex: programas de cybers café que precisam ficar na frente de todas as janelas para que o usuário não tenha acesso a nada a não sero programa do cyber.
Primeiro crie um modulo com o seguinte código
Public
Declare Function SetWindowPos Lib _
"user32" (ByVal hwnd As Long, ByVal _
hWndInsertAfter As Long, ByVal x As _
Long, ByVal y As Long, ByVal cx As _
Long, ByVal cy As Long, ByVal wFlags _
As Long) As Long
Agora basta adicionar esse código ao evento Load do Form:
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2)
Após a execução do programa a janela do mesmo se manterá na frente de todas as outras
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco