'Code by 魑 魑 魍魉' Mailto: DemonStudio@hotmail.com
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As long
Private Sub Form_Load () Op.Value = TrueCh.Value = 1SetWindowLong Command1.hwnd, -16, & H50008000SetWindowLong Ch.hwnd, -16, GetWindowLong (Ch.hwnd, -16) & H1000SetWindowLong List1.hwnd, -20, & H105SetWindowLong Text1. HWnd, -20, & h105setwindowlong op.hwnd, -16, getwindowlong (op.hwnd, -16) & h1000setwindowlong op1.hwnd, -16, getwindowlong (op1.hwnd, -16) & H1000END SUB
The effect is as follows: