Make your own screen saver

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