Form1 Bobber and Sinker Form1 SinkOrSwim &Sink SinkOrSwim S&wim Floaters Flotation &Devices &Water Wings &Cement Overcoat Sepline About &About... Exitapp E&xit Form_Click Form_LoadE setWindowPos hWndInsertAfter wFlags SWP_NOMOVEj SWP_NOSIZE| HWND_TOPMOSTB Command1_Click SWP_SHOWWINDOW CurrentX CurrentY Width HeightW Command2_ClickM FDs_Click Index Floaters_Click Checked Form1 (FoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFo= (oFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoFoF$ SinkOrSwim_Click Exitapp_Click About_Click] Screen windowf float Ignore size parameters Ignore position parameters Display window Make window float Form_Load Next line positions the app window in the middlei of the form horizontally, and 1/5th of the way down vertically. FDs_Click This sets window in float mode These lines check the current setting in the menu. This sets it in sink mode.m Ditto as above. %{TAB} Transfers focus to previous active app. SinkOrSwim_Click This sets the window in "sink" mode These lines check the current status in the menu. %{TAB} Transfers focus to previous active app. This sets it in float mode.m Ditto as above. Exitapp_Click About_Click A base for & illustration of a VB app that will float on top of other windows (and toggles to sink, too). Basic information/code comes from Inside Visual Basic, June & July 1992. Use this .MAK freely. David Stewart, Argyle Softstuff."