Move Form without a Title Bar!
This code will allow you to move your Forms without even having to have a Title Bar! So this means if you choose to make your Form's BroderStyle 0-None, which means no TitleBar, you will still be able to move the form with this code! You can do multiple things with this code also like: Clicking on the form and dragging to move the form, clicking on a Label and dragging it to move the form, clicking on a CommandButton and dragging it to move the form and so on if you get the picture :-) This code is very useful and cool if your sick of that dumb old BlueBar on the top of your form and want to make your own cool TitleBars and Borders and anything else that you put your mind to!
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
'Copy and Paste the following below this in the Form. NOT THE MODULE/BAS!!!! 'Ok, here it is, start Copying: Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) FormDrag Me End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) FormDrag Me End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) FormDrag Me End Sub Upload