[Tasos]

Καλημέρα σε όλους!
Αντώνη δοκίμασε:

Private Declare Function GetWindowLong Lib "user32" Alias _
              "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&

Private Sub Form_Load()
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hwnd, 0, CByte(200), LWA_ALPHA 
    ' CByte(200) όπου 200 = ο συντελεστής διαφάνειας της φόρμας (1 - 255)
End Sub

Καλή συνέχεια!

Τάσος