السلام عليكم - محتاج كود لوحة الارقام في شاشة paid cash

PHP كود :
Public Class Form1
    ' عند تغيير قيمة الخصم
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        CalculateRemainingAmount()
    End Sub

    ' عند تغيير قيمة المبلغ المدفوع
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        CalculateRemainingAmount()
    End Sub

    ' الدالة لحساب المبلغ المتبقي
    Private Sub CalculateRemainingAmount()
        ' تحويل قيم المربعات النصية إلى أرقام صحيحة مع التعامل مع الأخطاء
        Dim totalAmount As Decimal = 0
        Dim discount As Decimal = 0
        Dim paidAmount As Decimal = 0

        Decimal.TryParse(TextBox1.Text, totalAmount)
        Decimal.TryParse(TextBox2.Text, discount)
        Decimal.TryParse(TextBox3.Text, paidAmount)

        ' حساب المبلغ المتبقي
        Dim remainingAmount As Decimal = totalAmount - discount - paidAmount

        ' عرض المبلغ المتبقي في TextBox4
        TextBox4.Text = remainingAmount.ToString("F2")
    End Sub
End Class