Невидимое консольное приложение - Visual Basic 6 - VB

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

Добрый вечер. Подскажите пожалуйста

Решение задачи: «Невидимое консольное приложение - Visual Basic 6»

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

                            Attribute VB_Name = "Mcon"
Sub Main()
    HomeDir$ = App.Path
    Cmd$ = Command$
    If Cmd$ = "" Then
       MsgBox "Не указано имя модуля!", vbCritical
       Exit Sub
    Else
       If InStr(Cmd$, "\") = 0 Then
          fnam$ = HomeDir$ + "\" + Cmd$
       Else
          fnam$ = Cmd$
       End If
       If Dir$(fnam$, vbNormal) = "" Then
          MsgBox "Модуль " + fnam$ + " не найден!", vbCritical
          Exit Sub
       Else
          fi% = FreeFile
          Open fnam$ For Binary Access Read Write As #fi%
          Get fi%, &H3C + 1, L&
          Put fi%, L + &H5C + 1, CLng(3)
          Close fi%
       End If
    End If
End Sub
                        