Открытие программой с MDI связанных (ассоциированных) с ней файлов - VB

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

Имеется программа на VB, в которой с помощью функции Command() реализована возможность открытия ассоциированных с ней файлов (например текстовых) двойным щелчком в проводнике. (так как открывается файл txt в блокноте). При этом каждый файл открывается в новом окне (новый экземпляр программы). Имеется необходимость при открытии первого файла запускать приложение с MDI интерфейсом и отображать содержимое файла в дочернем окне, а последующие файлы открывать в новых дочерних окнах запущенного приложения, а не в новом экземпляре приложения. Спасибо.

Решение задачи: «Открытие программой с MDI связанных (ассоциированных) с ней файлов»

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

                                Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As UInteger, ByVal wMsg As Integer, ByVal wParam As UInteger, ByVal lParam As String) As UInteger
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As UInteger
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As UInteger, ByVal hWnd2 As UInteger, ByVal lpsz1 As String, ByVal lpsz2 As String) As UInteger
    Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
    Public Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
    Public Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
                        