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

'код загрузки FormMain
Private Sub Form_Load()
  'В самом начале и без проверок!!!
  Dim hwndScreen As Long ' это hwnd главной формы Form1 в приложении screen.exe
  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 на заставке

Private Sub Form_Load()
  hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER<<<

if len(Dir(App.Path & "\screen.exe))>0 Then
  Do
    DoEvents
    hwndScreen = FindMyWindow(3)
    if hwndScreen<>0 then
      exit do
    elseif (прошло скажем 15 секунд) Then 'ну не висеть же бесконечно
      exit do
    endif
  Loop
End If

if len(Dir(App.Path & "\screen.exe))>0 Then
  Do
    DoEvents
    hwndScreen = FindMyWindow(3)
    if hwndScreen<>0 then
      exit do
    elseif (прошло скажем 15 секунд) Then 'ну не висеть же бесконечно
      exit do
    endif
  Loop
End If

Private Sub Form_Load()
...
  'поиск окна hwndScreen (с учетом того что оно могло еще не появиться)
  Dim hwndScreen As Long
  If Len(Dir(App.Path & "\screen.exe")) > 0 Then
    Dim my_timeout As Date
    my_timeout = Now
    Do
      DoEvents
      hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER
      If hwndScreen <> 0 Then
        Exit Do
      ElseIf DateDiff("s", my_timeout, Now) > 15 Then 'ну не висеть же бесконечно
        Exit Do
      End If
    Loop
  End If
...

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
...
  'поиск окна hwndScreen (с учетом того что оно могло еще не появиться)
  Dim hwndScreen As Long
  If Len(Dir(App.Path & "\screen.exe")) > 0 Then
    Dim my_timeout As Date
    my_timeout = Now
    Do
      hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER
      Sleep 100
      If hwndScreen <> 0 Then
        Exit Do
      ElseIf DateDiff("s", my_timeout, Now) > 15 Then 'ну не висеть же бесконечно
        Exit Do
      End If
    Loop
  End If
...

if len(Dir(App.Path & "\screen.exe))>0 Then
  Do
    hwndScreen = FindMyWindow(3)
    if hwndScreen<>0 then
      exit do
    elseif (прошло скажем 15 секунд) Then 'ну не висеть же бесконечно
      exit do
    endif
    DoEvents
 Loop
End If

 If Len(Dir(App.Path & "\screen.exe")) > 0 Then

... 
    End If
    Sleep 100 'DoEvents
  Loop
End If

Private Sub TimerAlpha_Timer()
  If scr_state = scrLoading Then
    Transparent_v = Transparent_v + IIf(FastMode, 15, 5) 'уменьшаем прозрачность
    Call SetLayeredWindowAttributes(Me.hwnd, TransparentColor, Transparent_v, LWA_COLORKEY Or LWA_ALPHA)
    If Transparent_v = 255 Then
      TimerAlpha.Enabled = False
      scr_state = scrNothing
    End If
  ElseIf scr_state = scrUnloading Then
    Transparent_v = Transparent_v - IIf(FastMode, 15, 5) 'увеличиваем прозрачность
    Call SetLayeredWindowAttributes(Me.hwnd, TransparentColor, Transparent_v, LWA_COLORKEY Or LWA_ALPHA)
    If Transparent_v = 0 Then
      TimerAlpha.Enabled = False
      scr_state = scrNothing
      Unload Me
    End If
  End If
End Sub

Private Sub Form_Load()
  hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER<<<

      ElseIf DateDiff("s", my_timeout, Now) > 15 Then 'ну не висеть же бесконечно
        Exit Do