Как написать ScreenSaver на VB 6.0?

Формулировка задачи:

Как сделать экранную заставку, точнее как правильное ее скомпилировать, чтобы получить файл с расширением *.scr (при простом переименование *.exe в *.scr заставка не работает)?

Решение задачи: «Как написать ScreenSaver на VB 6.0?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()

    <font color="blue">Dim</font> sCmdLine <font color="blue">As</font> <font color="blue">String</font>
    sCmdLine = Trim$(UCase$(Command$))

    <font color="00AA00">' Запускаем заставку в обычном режиме</font>
    <font color="blue">If</font> sCmdLine = <font color="teal">"/s"</font> <font color="blue">Or</font> sCmdLine = <font color="teal">""</font> <font color="blue">Then</font>
        <font color="blue">Exit</font> <font color="blue">Sub</font>
    <font color="blue">End</font> <font color="blue">If</font>

    <font color="00AA00">' Запускаем заставку в режиме конфигурации</font>
    <font color="blue">If</font> sCmdLine = <font color="teal">"/c"</font> <font color="blue">Then</font>
        MsgBox <font color="teal">"Конфигурации не требуется!"</font>
        <font color="blue">End</font>
    <font color="blue">End</font> <font color="blue">If</font>

    <font color="00AA00">' Запускаем заставку в режиме просмотра</font>
    <font color="blue">If</font> Left$(sCmdLine, <font color="darkblue"><b>2</b></font>) = <font color="teal">"/p"</font> <font color="blue">Then</font>
        <font color="00AA00">'Параметр можно получить с помощью оператора</font>
        <font color="00AA00">'Val(Mid$(sCdmLine,3))</font>
        <font color="blue">End</font>
    <font color="blue">End</font> <font color="blue">If</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>

                        