Modul)(General)(Declaration)
Option Explicit
Public Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As Long, _
ByVal XDest As Long, ByVal YDest As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, _
ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Dim hwnddesk As Long
Dim hdcdesk As Long

Public Sub SeffafYap (FTBP As Form)
FTBP.AutoRedraw = True
hwnddesk = GetDesktopWindow()
hdcdesk = GetWindowDC(hwnddesk)
Call BitBlt(FTBP.hdc, 0, 0, _
FTBP.Width / Screen.TwipsPerPixelX, _
FTBP.Height / Screen.TwipsPerPixelY, hdcdesk, _
FTBP.Left / Screen.TwipsPerPixelX, _
FTBP.Top / Screen.TwipsPerPixelY, SRCCOPY)
Call ReleaseDC(hwnddesk, hdcdesk)
End Sub

Private Sub Form_Load()
SeffafYap Me ‘ Form başlıksız olacak
End Sub