Sub Mainから起動して、複数フォームを表示するには？

nob 2003-05-22 00:40:34 No: 107219

同じようなFAQがあったので恐縮なのですが、いろいろ調べて
わからないので質問させてください。VB.NETに関しての質問です。

複数フォームの表示についてなのですが、
プロジェクトには
フォーム：frmMain、frmStartUp
モジュール：StartUp
があります。

Module StartUp
  Public Sub Main()
    Dim bRet as Boolean
    Dim fStart as New frmStartUp()
    Dim fMain as New frmMain()

    'スプラッシュ表示
    fStart.Show()

    '初期処理
    bRet = Fnc_Initialize

    '画面表示
    Application.Run(fMain)

    'クリーンアップ処理
    fStart.Dispose()
    fStart = Nothing
  End Sub
End Module

上記の起動方法では、frmStartUpとfrmMainが両方開いてしまいます。
スプラッシュ画面を閉じてfrmMainだけ開きたいのですが、どうすればよいのでしょうか。
参考になるLink等でもいいので、教えてもらえないでしょうか。
よろしくお願いします。