[Ahmed_Mansoor]

أهلا أختي الكريمه ميرا ، أكتب ردي هذا من هاتفي المحمول ، كل ماعليك فعله هو تعريف كل متغير موجود في المثال في أعلى كود الفورم في مكان التعريفات العامه والمتغيرات التي تستخدميها لإجراء العمليات الحسابيه عرفيها من نوع Double والمتغير النصي الخاص برقم النسبه المئويه عندما تستخدمينه في العمليات الحسابيه لابد أن تضعيه داخل أقواس الداله Val() , بالنسبه لإنهاء البرنامج من إداة المهام المفترض أن البرنامج يختفي منها بمجرد إنهائه ولكن يبدو أن بعض الفورمات عندك لم يتم إلغاء تحميلها لذلك في زر إنهاء البرنامج لابد من التأكد من إلغاء تحميل جميع فورمات البرنامج قبل كتابة كلمة End ، وكود الإنهاء في حالتك لابد أن يكون كالتالي :

كود :

Dim Frm As Form

For Each Frm in Forms
        Unload Frm
Next

End