いいえクリックされていない場合、メッセージボックスを閉じる

Question

私は約5つの隠されたテキストボックスを持っています、それをクリックすると1つのヒッテントテキストが表示されますが、1回だけテキストボックスが表示され、 「続行しますか？」というメッセージボックスが表示されます（YESまたはNO）。はいを押すと2番目のテキストボックスが表示されますが、いいえを押すとメッセージボックスは閉じます。私はボタンの上にこのコードをお持ち

：

Private Sub revealtxtbox_Click(ByVal senders As System.Object, ByVal e As System.EventArgs) Handles revealtxtbox.Click 

txtbox1.visible = True 
If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") = MsgBoxResult.Yes then 
txtbox2.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox3.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox4.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox5.visible = true 

End if 

コード上で多少動作しますが、私は、txtbox3ショーやMsgBoxに閉じNOを押したときに、それはtxtbox3を表示するべきではない、それだけのMsgBoxを閉じる必要があります。

Answer 1

代わりに、より多くのこのような何かを試してみてください：

Private Sub revealtxtbox_Click(ByVal senders As System.Object, ByVal e As System.EventArgs) Handles revealtxtbox.Click 

    txtbox1.visible = True 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox2.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox3.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox4.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox5.visible = true 

End if