はじめまして、宜しくお願いします。
　VisualBasic逆引き大全500の極意(秀和システム)の069、070　ページ97、98を参考にして　①メニューからプロジェクト⇒フォームモジュールを追加でログオンダイアログを選択し次のようにコードを書きました。
Option Explicit

Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()　'ﾛｸﾞｵﾝに失敗したことを示すために，ｸﾞﾛｰﾊﾞﾙ変数を Flase に設定します。
LoginSucceeded = False　改行して Me.Hide
End Sub
Private Sub cmdOK_Click() '正しいﾊﾟｽﾜｰﾄﾞかどうかを調べます。
If txtUserName.Text = "suzuki" And _
txtPassword.Text = "123abc" Then　　'ここにﾊﾟｽﾜｰﾄﾞが一致したことを呼び出し元に通知するｺｰﾄﾞを記述します。ここでは簡単にｸﾞﾛｰﾊﾞﾙ変数を True に設定します。
LoginSucceeded = True　改行して　 Me.Hide
Else
MsgBox "ﾊﾟｽﾜｰﾄﾞが正しくありません。もう一度入力してください !", , "ﾛｸﾞｵﾝ"
txtPassword.SetFocus　改行して SendKeys "{Home}+{End}"
End If
End Sub　次にForm1に4つCommandButtonwonを配置し

Option Explicit
Private Sub Form_Load() 'ログオンダイアログボックスを表示
frmLogin.Show vbModal 'ログオンに失敗していたらプログラムを終了
If frmLogin.LoginSucceeded = False Then
MsgBox "ログオンできませんでした。"
End
End If 'ログオンダイアログボックスをメモリから消去
Unload frmLogin
End Sub
　
これで、実行をかけるとfrmloginでとまってしますのですが？どのようにしたら良いでしょうか？