Originariamente inviato da poves
mah non è l'effetto k desideravo...lo skermo è del tutto nero e la finestra in qst modo è a tt skermo...grz cmq x l'aiuto aspetto altri suggerimenti...
Al codice che hai già ricevuto aggiungi questo codice:

codice:
' nelle Dichiarazioni del form
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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

' nell'evento Form_Load()
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
per migliorarlo ulteriormente puoi impostare il Form con
BorderStyle=0

ma poi devi anche usare
codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Unload Me
    End If
End Sub
così premendo ESC puoi uscire, altrimenti sei bloccato.

Voilà! Il gioco è fatto.


P.S.
Per cortesia evita il linguaggio SMS, sappi che sui forum tecnici non è tollerato.