[Zuhare]

تفضل

كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    Dim n As Integer = Val(Me.TextBox1.Text)
    Me.Label1.Text = If(n > 125, 125, n)
    n -= 125
    If n < 0 Then n = 0
    Me.Label2.Text = If(n > 125, 125, n)
    n -= 125
    If n < 0 Then n = 0
    Me.Label3.Text = If(n > 750, 750, n)
    n -= 750
    If n < 0 Then n = 0
    Me.Label4.Text = n
End Sub