[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.Text = "وحدة"
        Label2.Text = "ريال"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label2.Text = "وحدة"
        Label1.Text = "ريال"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) Then

            If RadioButton1.Checked Then
                TextBox2.Text = Val(TextBox1.Text) * 11.5
            Else
                TextBox2.Text = Val(TextBox1.Text) / 11.5
            End If

        End If
    End Sub
End Class