Public Sub mnuTrayLogBook_Click()
  Dim hwndTarget As Long
  hwndTarget = FindMyWindow(1) 'WINDOWTITLE_LOGBOOK
  If hwndTarget = 0 Then
    If Len(Dir(App.Path & "\logbook.exe")) > 0 Then _
     Shell App.Path & "\logbook.exe", vbNormalFocus
  Else
    If IsIconic(hwndTarget) Then ShowWindow hwndTarget, SW_RESTORE
    SetForegroundWindow hwndTarget
  End If
End Sub

    If Len(Dir(App.Path & "\logbook.exe")) > 0 Then _
     Shell "cmd /c " & Chr(34) & App.Path & "\logbook.exe" & Chr(34), vbNormalFocus

Shell App.Path & "\logbook.exe", vbNormalFocus

Sub Main()
  Dim hwndTarget As Long 'hwnd окна PrevInstance
...
  hwndTarget = FindMyWindow(0) 'WINDOWTITLE_LOGBOOK
  If hwndTarget <> 0 Then
    If IsIconic(hwndTarget) Then ShowWindow hwndTarget, SW_RESTORE
    SetForegroundWindow hwndTarget
    Exit Sub
  End If
  'все таки этот вариант надо отработать, т.к. есть шанс быстро щелкнуть 2 раза по иконке(до загрузки формы)
  If App.PrevInstance Then Exit Sub

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
 (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
 ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

      ShellExecute 0, "open", App.Path & "\logbook.exe", "", App.Path, SW_SHOWNORMAL
     'Shell App.Path & "\logbook.exe", vbNormalFocus

Shell (, vbТакойТоБлинФокус)

Shell (, vbТакойТоБлинФокус)

Sub Main()
    ...
    ' предполагая что FormMain будет грузиться долго запускаем заставку для ублажения юзера
    Shell App.Path & "\screen.exe", vbNormalFocus
    FormMain.Show

'код загрузки FormMain
Private Sub Form_Load()
  'В самом начале и без проверок!!!
  Dim hwndScreen As Long
  hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER
...Do-do-do
  SendCommandToScreen hwndScreen, 5 ' отображение загрузки через ProgressBar на заставке
...Do-do-do
  SendCommandToScreen hwndScreen, 50 ' отображение загрузки через ProgressBar на заставке
...Do-do-do
  SendCommandToScreen hwndScreen, 100 ' отображение загрузки через ProgressBar на заставке

'Shell App.Path & "\screen.exe", vbNormalFocus
ShellExecute 0, "open", App.Path & "\screen.exe", "", App.Path, SW_SHOWNORMAL