GroupBOX内で選らばれたものをメッセージボックスで使いたい

質問

簡単な質問で申し訳ございません。
例えばformの中にGroupbox1を作ってその中にradiobutton1（男性）、radiobutton2（女性）を作って、登録ボタンを押すと確認メッセージボックスが出てきて「貴方は男性ですね？（または女性ですね？）」とメッセージを表示したいと思っています。

groupboxで選ばれた性別を使おうと思うのですが、どのように書いたら良いのかよくわかりません。
よろしくお願いいたします。

回答No.2

himajin100000

Option Explicit On
Option Strict On
Option Infer Off
Option Compare Binary
Class Q4326006A
Inherits System.Windows.Forms.Form
Private Group1 As System.Windows.Forms.GroupBox
Private RadioButton1 As System.Windows.Forms.RadioButton
Private RadioButton2 As System.Windows.Forms.RadioButton
Private Button1 As System.Windows.Forms.Button

Sub New()

Group1 = New System.Windows.Forms.GroupBox()
RadioButton1 = New System.Windows.Forms.RadioButton()
RadioButton2 = New System.Windows.Forms.RadioButton()
Button1 = New System.Windows.Forms.Button()

Button1.Text = "実行"
Button1.Top = 90

Group1.Text = "性別"
Group1.Height = 70

RadioButton1.Left = 10
RadioButton1.Top = 10
RadioButton1.Height = 20

RadioButton1.Text = "男性"
RadioButton1.Checked = True

RadioButton2.Left = 10
RadioButton2.Top = 10 + 20
RadioButton1.Height = 20
RadioButton2.Text = "女性"

Group1.Controls.Add(RadioButton1)
Group1.Controls.Add(RadioButton2)

Me.Controls.Add(Group1)
Me.Controls.Add(Button1)

AddHandler Button1.Click,AddressOf Button1_Click

End Sub
Private Sub Button1_Click(sender As Object, e As System.EventArgs)
For Each Radio1 As System.Windows.Forms.Control In Group1.Controls
Dim r As System.Windows.Forms.RadioButton = TryCast(Radio1,System.Windows.Forms.RadioButton)
If Not r Is Nothing Then
If r.Checked = True Then
System.Windows.Forms.MessageBox.Show("貴方は" & r.Text & "ですね？")
End If
End If
Next
End Sub
Shared Sub Main()

Dim Form1 As Q4326006A
Form1 = New Q4326006A()
Form1.ShowDialog()

End Sub
End Class

回答No.1

ProKaseifu

if radiobutton1.checked then
漢
elseif radiobutton2.checked then
女
else
ガクガクブルブル
end if