Shoutbox

How do you mean?

I tried it like this, but it doesn't work

code:

---

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

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

---