أرجوكم إخوان لقد وجدت مشكلة في عمل هدا البرنامج اأرجوكم مساعدة بسيطة
 

بعدما أنهيت البرنامج عندما أدخل اليه و أضغط على Calculer يضهر لي خطأ "OverFlow" مع العلم أنني لم أخطئ في تسميات مربع النصوص و العمليات


هاهو كود البنامج :

كود:

Private Sub Command1_Click()
Dim a, b, c, d As Integer
a1.Text = a
b1.Text = b
c1.Text = c
d = (b * b) - (4 * a * c)
If d = 0 Then
r1.Text = r2.Text = (-b) / (2 * a)
End If

If d < 0 Then
r1.Text = "Pas De SoluTion --' "
End If

If d > 0 Then
r1.Text = -b + (Sqr(d)) / (2 * a)
r2.Text = -b - (Sqr(d)) / (2 * a)
End If

End Sub

Private Sub Command2_Click()
a1.Text = ""
b1.Text = ""
c1.Text = ""
r1.Text = ""
r2.Text = ""

End Sub
r2.Text = ""
و هاهي صورة للخطئ

http://imageshack.us/scaled/landing/525/probl.jpg

أرجوكم لو يوجد أحد عنده Projet Vb كامل لهده العملية يرسله لي
بارك الله فيكم