[Ali Wisam]

السلام عليكم ..
اتصور انَّ المشكلة تكمن في انَّ النص الفارغ لا يمكن ان يتحول الى Double
استخدمي Val بدلا من CDbl
فيكون الكود :

كود :

Dim Pay1 As Double = val(txtPay1.Text)
Dim Pay2 As Double = val(txtPay2t.Text)
Dim Pay3 As Double = val(txtPay3.Text)
        If CheckPay1.Checked = False Then
                  txtTotalPay.Text = (Pay2 + Pay3 )
        ElseIf CheckPay2.Checked = False Then
                   txtTotalPay.Text = (Pay1 + Pay3 )
        ElseIf CheckPay3.Checked = False Then
                    txtTotalPay.Text = (Pay1 + Pay2 )
Else
txtTotalPay.Text = (Pay1 + Pay2 + Pay3)

        End If