Make your own screen saver
This gives the basic code for making a windows screen saver. Very easy to understand and use!!
AI
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.
Source Code
Sub Main() Dim strCmdLine As String strCmdLine = Left(Command, 2) If strCmdLine = "/p" Then ' End 'on select of your screen saver ElseIf strCmdLine = "/c" Then 'Call Load(frmConfig) ' frmConfig.Show 'Function to call when 'Settings' ' button is pushed Else 'Call Load(frmMain) ' frmMain.Show 'your screen saver has been loaded End If End Sub ' add this to a module ' then goto menu Project/Your Project Properties ' choose the Start up object "Sub Main" 'Explains enough to get by, 'DoWnLoHo
Original Comments (3)
Recovered from Wayback Machine