Il faut faire un form
Ajoutez ce qui suit dans un module
Source / Exemple :
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const GW_OWNER = 4
<B>Puis mettez ce qui suit dans le code de votre form (dans la Form_load par exemple) </B>
Private Sub Form_Load()
Dim hWndDeMonForm As Integer
Dim ret As Integer
hWndDeMonForm = GetWindow(Me.hwnd, GW_OWNER)
ret = ShowWindow(hWndDeMonForm , SW_HIDE)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.