Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
      If System.Diagnostics.Process.GetProcessesByName("OUTLOOK").Length > 0 Then
          Exit Sub
      Else
          Dim startInfo As New ProcessStartInfo("OUTLOOK.exe")
          startInfo.WindowStyle = ProcessWindowStyle.Minimized
          Process.Start(startInfo)
      End If
  End Sub