Shoutbox

code:

---

Private Function grootte()
        If RadioButton1.Checked = True Then
            MessageBox.Show("button1")
        ElseIf RadioButton2.Checked = True Then
            MessageBox.Show("button2")
        ElseIf RadioButton3.Checked = True Then
            MessageBox.Show("button3")
        End If
    End Function

Private Function kleur()
        If RadioButton4.Checked = True Then
            MsgBox("button4")
        ElseIf RadioButton5.Checked = True Then
            MsgBox("button5")
        End If
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        grootte()
        kleur()
    End Sub

---