[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
سنعبئ الكومبو بعنصرين (عادي - مخفض)
وفي حدث تغيير الاختيار

كود :

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
       ' اول عنصر في الكومبوبوكس يكون عادي والثاني يكون مخفض

       If ComboBox2.SelectedIndex = 0 Then
           TextBox2.Text = CDbl(Val(TextBox1.Text) * 0.05)
       ElseIf ComboBox2.SelectedIndex = 1 Then
           TextBox2.Text = CDbl(Val(TextBox1.Text) * 0.02)

       End If
   End Sub