Timer-tick-handler nicht ausgeführt

Ich komplett neu bin VB.net und ich versuche, führen Sie eine semi-intermediate-script, der überprüft, ob bestimmte Dateien öffnen. Wenn es zum ersten mal öffnet, prüft es, für ein bestimmtes Programm, dann wird es weiter prüfen, die für ein anderes Programm auf einem timer.. Aber wenn ich den code ausführen, der Sub Timer1 läuft nicht, ich habe es alle 20 Sekunden..

Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (Process.GetProcessesByName("PROGRAM1").Length >= 1) Then
            MessageBox.Show("This Client is already running!", "IG Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Environment.Exit(0)
        Else
            Process.Start(System.IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "program.exe"))
            '''' OPEN PROGRAM ABOVE ''''
        End If
        For Each frm As Form In Application.OpenForms
            frm.WindowState = FormWindowState.Minimized
        Next frm
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Process.GetProcessesByName("PROGRAM2").Length >= 1) Then 'CHECK FOR PROGRAM
            MessageBox.Show("Program is running!", "IG Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Environment.Exit(0)
            Form3.Show()
        Else
            MessageBox.Show("Program is not running!")
        End If
    End Sub
End Class

Oben ist der code, den ich bereits habe.. mein timer sub entweder nicht ausgeführt oder ist nicht die überprüfung alle 20 Sekunden.
Irgendwelche Ideen?