Public Function Change()
Dim lStyle As Long lStyle = GetWindowLong(CurHandle, GWL_STYLE) lStyle = lStyle Xor WS_OVERLAPPEDWINDOW lStyle = lStyle Xor WS_POPUP Call SetWindowLong(CurHandle, GWL_STYLE, lStyle) UpdateWindow CurHandle End Function |