by Cyrus Austria Lacaba (2 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 16th May 2006
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Make your Form Invisible
API Declarations
'BorderStyle = None, Caption = vbnullstring
'2. Hide your Desktop Icons
'3. Set your Desktop Wallpaper = None
'4. Add some controls to your Form
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Dim a As RECT, b As RECT
'GetWindowRect Me.hwnd, b
'GetWindowRect GetDesktopWindow, a
Me.BackColor = GetSysColor(1)
End Sub