[hsab]

المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز

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

[HTML]Private Sub Form_Load()
Text1(0).Text = Format$(Text1(0), "#,##0.00")
Text1(1).Text = Format$(Text1(1), "#,##0.00")
Text3.Locked = True
Text3.BackColor = &H80000000

End Sub
Private Sub Opt1_Click(Index As Integer)
Select Case Index
Case 0
Text3.Text = Format$(CSng(Text1(0) * Text1(1)), "#,##0.00")
Case 1
Text3.Text = Format$(CSng(Text1(0) / Text1(1)), "#,##0.00")
Case 2
Text3.Text = Format$(CSng(Text1(0)) + CSng(Text1(1)), "#,##0.00")
Case 3
Text3.Text = Format$(CSng(Text1(0)) - CSng(Text1(1)), "#,##0.00")
Case Else
Text3.Text = "0.00"
End Select
End Sub
Private Sub Text1_Change(Index As Integer)
Call Form_Load
If Text1(Index).Text = "" Then Exit Sub
Call Opt1_Click(Index)
End Sub
[/HTML]