Заставка для сторонней программы

Private bTest As Boolean
 
'процедура определение запуска программы
    Private Sub FindPro()
        For Each pr As Process In Process.GetProcesses
            If pr.MainWindowTitle = "МГС" Then  'если программа появилась, тогда закрываю свою
                bTest = True
                Application.Exit()
            End If
        Next
    End Sub
 
 ' Определение запущенных процессов
    Private Sub ProcessProg()
        Dim running() As Process = Process.GetProcesses()
        If running.Length > 0 Then
            Dim Cnt As Integer
            For Cnt = 0 To running.Length - 1
                If running(Cnt).ProcessName = "MGS" Then 'если процесс запущен, тогда
                    Tmr.Enabled = True                             'включаем таймер
                    lblSec.Visible = True                            'показываю надпись "Загрузка"
                   
                End If
            Next Cnt
        End If
    End Sub
 
'Загрузка формы
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Call FindPro()
        'если программа не запущена, тогда запускаю
        If IO.File.Exists("D:\DEPMGS\МГС эт\BIN\MGS.exe") = True And bTest = False Then
            Process.Start("D:\DEPMGS\МГС эт\BIN\MGS.exe")
        End If
        Call ProcessProg()
End Sub
 
'Работа таймера
    Private Sub Tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        Static boo As Long
        boo = boo + 1
        If boo > 3 Then boo = 0 'счетчик запросов
        'Если программа запущена, тогда выход
        If boo = 3 Then
            Application.DoEvents()
            Call FindPro()
        End If
    End Sub

 If IO.File.Exists("D:\DEPMGS\МГС эт\BIN\MGS.exe") = True And bTest = False Then
            Process.Start("D:\DEPMGS\МГС эт\BIN\MGS.exe")
        End If

If IO.File.Exists("D:\DEPMGS\МГС эт\BIN\MGS.exe") = True And bTest = False Then
System.Diagnostics.ProcessStartInfo processprop = new System.Diagnostics.ProcessStartInfo();
processprop.FileName = "D:\DEPMGS\МГС эт\BIN\MGS.exe";
processprop.WindowStyle = System.Diagnostics.ProcessWindowStyle.Maximized; // в развернутом виде
System.Diagnostics.Process process = new System.Diagnostics.Process();
process = System.Diagnostics.Process.Start(processprop);
end if