₦airaland Forum

with this code you can make your entire program windows transparent

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
   (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()

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

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1

Private Sub Form_Load()
DarkMe
End Sub

Public Function DarkMe()
  Dim rtn As Long
  rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
  rtn = rtn Or WS_EX_LAYERED
  SetWindowLong hWnd, GWL_EXSTYLE, rtn
  SetLayeredWindowAttributes hWnd, 0, 200, LWA_ALPHA
End Function


check developerfusion.co.uk for more goodies

although i havent don VB programming in a while. thats a nice tip

thank you so what lanugauge do u use now

well i do Java but i am currently learning .Net