Jeremy,
I copied this from a search in all vb-world, which should work in win95/98, but doesn't in NT.
1. Code for a module
2. Add a commandbutton with following code to Form1Code:Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_TRANSPARENT = &H20& Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _ SWP_NOMOVE Or SWP_NOSIZE Public Const HWND_NOTOPMOST = -2 Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter _ As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As Long
3. The ShowInTaskbar property should be set to False and the BorderStyle to 0-None.Code:Private Sub Command1_Click() SetWindowLong Me.hwnd, GWL_EXSTYLE, _ WS_EX_TRANSPARENT SetWindowPos Me.hwnd, HWND_NOTOPMOST, _ 0&, 0&, 0&, 0&, SWP_SHOWME End Sub
[This message has been edited by WadeD (edited 02-14-2000).]




Reply With Quote