シャノンさん、流れてしまいますｗ

こういうのはダメ？ｗあくまでMainメソッドを親玉に。同時にメッセージループ回ってなければ問題ないはず･･･？

Module Module1
    Public Sub Main()
        ' まずは認証用にメッセージループを回す。

        Using f1 As New Form1
            Application.Run(f1)
        End Using
        ' メインフォームを表示していいならもっかいメッセージループ。

        Using f2 As New Form2
            Application.Run(f2)
        End Using
    End Sub
End Module