| Private Sub Form_Click() '-- End Screen Saver when form is clicked Unload Me End Sub Private Sub Form_Load() '-- Do not allow more than 1 instance of the Screen Saver If App.PrevInstance Then Unload Me End Sub Private Sub Timer1_Timer() '-- Make label blink once a second Label1.Visible = Not (Label1.Visible) End Sub Make sure your Form's Maximized property is set, and that it's Border Style is set to None. Most screen savers are full screen, without a title bar. In the File | Make EXE File dialog, under the Options button, type the string SCRNSAVE: (all in upper case) at the beginning of the Application Title textbox. (For example, we could call our application SCRNSAVE:TestApp1.) For the application executable filename, specify that the extension of the application be .SCR instead of .EXE. (For example, we could call our executable TestApp1.scr.) Make sure you put the .SCR file in your Windows Directory. |
Screensaver |
Express News India | Freelance ecommerce web development India