Make your own screen saver
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.