This gives the basic code for making a windows screen saver. Very easy to understand and use!!
Original Author: DoWnLoHo
Assumptions
you have 2 forms named frmConfig and frmMain
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