Silakan letakkan pernyataan berikut di area deklarasi
KonstanGWL_EXSTYLE=(-20)
KonstanWS_EX_TRANSPARENT=&H20&
KonstSWP_FRAMECHANGED=&H20
KonstanSWP_NOMOVE=&H2
KonstanSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZE
KonstHWND_NOTOPMOST=-2
PRIvateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong
Contoh yang digunakan pada Form_Load adalah sebagai berikut:
PrivateSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
Saya. Segarkan
Sub Akhir->