[Zuhare]

PHP كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = Val(ComboBox1.Text) * 100
        ComboBox2_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        TextBox2.Text = Val(ComboBox1.Text * 10) & "." & Strings.StrDup(2, Val(ComboBox2.Text).ToString)
    End Sub