実行時エラー5

[戻る]
まだまだVB6 2010/06/02(水) 11:08:31
以下のようなプログラムを作成し、実行すると、実行時エラー(5)が発生するのですが、
理由と回避策がわかりず、困っています。このような現象を知っている方がおられ
ましたら、ご教授ください。

(1)フォームを2つ新規に作成する。
   これをForm1、Form2とする。
(2)Form1にコマンドボタン(Command1)とテキストボックス(Text1)を貼り付ける。
(3)Form1のコードを以下のようにする。

Option Explicit

Private Sub Command1_Click()
    Form2.bFlag = False
    Form2.Show vbModal
    If Form2.bFlag = True Then
        MsgBox "OK"
    End If
End Sub

Private Sub Form_Activate()
    Me.Text1.SetFocus
End Sub

(4)Form2にコマンドボタン(Command1)を貼り付ける。
(5)Form2のコードを以下のようにする。

Option Explicit

Public bFlag As Boolean
Private Sub Command1_Click()
    bFlag = True
    Me.Hide
End Sub

まだまだVB6 2010/06/02(水) 11:25:10
[[解決]]
すいません、送信を押し間違えました。

古いスレッドには追加発言できません。