>> Code de "FrmFond":
Option Explicit
Public Connect As Boolean
Private Sub Form_Load()
Connect = False ' ne sert a rien pour l'instant
End Sub
Private Sub Form_Click()
FrmConnexion.Show 1, FrmFond
End Sub
>> Code de "FrmConnexion":
Private Sub Form_Load()
Dim bdn As Boolean
' Permet la transparence (ne marche qu'avec les noyaux NT) grâce à la dll d'agaga
bdn = FORME(Me.hWnd, vbWhite, 191, MF_Opacity)
End Sub