[VB6] Making Semi Transparent Form

[second2none]

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

^^^Declare this...

Then add this vvvvvv

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

Thought I would share this. Its a pretty nifty thing hehe.

Credits to freevbcode.com


Things to know..

If you change

SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2

The 200, it changes the opacity or whatever it is. 255 is the highest & 0 is you have no form xD pretty fun to play around with

[rcadble]

Cool, i've wondered about that but it is a little pointless.

I know in vb.net there is a set attribute that you can just change like form1.opacity or something. But cool.

[second2none]

Yeha pretty pointless xD But its fun to muck around with