Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim henji As DialogResult Label1.Text = Nothing henji = MessageBox.Show("続けますか", "質問", MessageBoxButtons.YesNo) While henji = Windows.Forms.DialogResult.Yes Label1.Text &= "「はい」を押しました。継続します。" & ControlChars.NewLine henji = MessageBox.Show("続けますか", "質問", MessageBoxButtons.YesNo) End While Label1.Text = "「いいえ」を押しました。終了します" End Sub End Class
