جمع مقادیر maskedbox

[nasirzadeh_acc]

سلام
میشه لطف کنید و به من آموزش بدید چجوری میتونم مقادیر عددی 3 تا maskedbox رو با هم جمع و بصورت اتوماتیک توی maskedbox چهارمی بنویسم.خودم این روش انتخاب کردم ولی سیستم ایراد میگیره
Private Sub MaskEdBox5_Change()
Dim i As Integer
( i = Val(MaskEdBox2.Text) + Val(MaskEdBox3.Text) + Val(MaskEdBox4.Text
End Sub

[ahmad abdoli]

سلام

دوست عزیز باید کد رو توی رویداد LostFocus کنترل MaskEdBox3 بنویسی


Private Sub MaskEdBox3_LostFocus()
MaskEdBox4.Text = Val(MaskEdBox1.Text) + Val(MaskEdBox2.Text) + Val(MaskEdBox3.Text)
End Sub