Public Class Form1
    Const centro = 1200
    Const zona1 = 1000
    Const zona2 = 900
    Const zona3 = 750
    Const periferia = 600
    Const prov = 0.02
    Dim mq As Integer
    Dim importo As String
    Dim age As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mq = Val(TextBox6.Text)
        If RadioButton1.Checked = True Then
            importo = centro * mq
            age = importo * prov
            TextBox7.Text = importo
            TextBox8.Text = age
        End If
        If RadioButton2.Checked = True Then
            importo = zona1 * mq
            age = importo * prov
            TextBox7.Text = importo
            TextBox8.Text = age
        End If
        If RadioButton3.Checked = True Then
            importo = zona2 * mq
            age = importo * prov
            TextBox7.Text = importo
            TextBox8.Text = age
        End If
        If RadioButton4.Checked = True Then
            importo = zona3 * mq
            age = importo * prov
            TextBox7.Text = importo
            TextBox8.Text = age
        End If
        If RadioButton5.Checked = True Then
            importo = periferia * mq
            age = importo * prov
            TextBox7.Text = importo
            TextBox8.Text = age
        End If
    End Sub
End Class