[VB6] Transparent Form

Arhiva forumului

Moderatori: Moderator Global, Administrator

Încuiat
Fabr3gas

Cod: Selectaţi tot

Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long


Private Sub Form_Load()
    SetWindowLong Me.hWnd, (-20), &H80000
    SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2
End Sub
Sus
Încuiat

Înapoi la “Arhiva forum”