Form1
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub MaskEdBox12_Lostfocus()
MaskEdBox12 = Val(MaskEdBox10) - Val(MaskEdBox11)
End Sub
Private Sub MaskEdBox15_Lostfocus()
On Error Resume Next
MaskEdBox15 = Val(MaskEdBox13) / Val(MaskEdBox14)
End Sub
Private Sub MaskEdBox19_Lostfocus()
On Error Resume Next
MaskEdBox19 = (Val(MaskEdBox16) - Val(MaskEdBox17)) / Val(MaskEdBox18)
End Sub
Private Sub MaskEdBox22_Lostfocus()
MaskEdBox22 = Val(MaskEdBox20) - Val(MaskEdBox21)
End Sub
Private Sub MaskEdBox27_Lostfocus()
On Error Resume Next
MaskEdBox27 = (Val(MaskEdBox23)) / (Val(MaskEdBox24) + Val(MaskEdBox25) * Val(MaskEdBox26))
End Sub
Private Sub MaskEdBox3_Lostfocus()
MaskEdBox3 = Val(MaskEdBox1) - Val(MaskEdBox2)
End Sub
Private Sub MaskEdBox31_Lostfocus()
MaskEdBox31 = Val(MaskEdBox28) * (Val(MaskEdBox29) + Val(MaskEdBox30))
End Sub
Private Sub MaskEdBox34_Lostfocus()
MaskEdBox34 = Val(MaskEdBox32) - Val(MaskEdBox33)
End Sub
Private Sub MaskEdBox37_Lostfocus()
MaskEdBox37 = Val(MaskEdBox35) *Val(MaskEdBox36)
End Sub
Private Sub MaskEdBox6_Lostfocus()
MaskEdBox6 = Val(MaskEdBox4) - Val(MaskEdBox5)
End Sub
Private Sub MaskEdBox9_Lostfocus()
MaskEdBox9 = Val(MaskEdBox7) - Val(MaskEdBox8)
End Sub
Form 2
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Form_Load()
MaskEdBox1 = Val(Form1.MaskEdBox1)
MaskEdBox2 = Val(Form1.MaskEdBox3)
MaskEdBox3 = Val(Form1.MaskEdBox4)
MaskEdBox4 = Val(Form1.MaskEdBox6)
MaskEdBox5 = Val(Form1.MaskEdBox10)
MaskEdBox6 = Val(Form1.MaskEdBox9)
MaskEdBox7 = Val(Form1.MaskEdBox10)
MaskEdBox8 = Val(Form1.MaskEdBox12)
MaskEdBox9 = Val(Form1.MaskEdBox15)
MaskEdBox10 = Val(Form1.MaskEdBox19)
MaskEdBox11 = Val(Form1.MaskEdBox20)
MaskEdBox12 = Val(Form1.MaskEdBox22)
MaskEdBox13 = Val(Form1.MaskEdBox23)
MaskEdBox14 = Val(Form1.MaskEdBox31)
MaskEdBox15 = Val(Form1.MaskEdBox32)
MaskEdBox16 = Val(Form1.MaskEdBox34)
MaskEdBox18 = Val(Form1.MaskEdBox37)
MaskEdBox21 = Val(MaskEdBox1) + Val(MaskEdBox3) + Val(MaskEdBox5) + Val(MaskEdBox7) + Val(MaskEdBox9) + Val(MaskEdBox11) + Val(MaskEdBox13) + Val(MaskEdBox15) + Val(MaskEdBox17) + Val(MaskEdBox19)
MaskEdBox22 = Val(MaskEdBox2) + Val(MaskEdBox4) + Val(MaskEdBox6) + Val(MaskEdBox8) + Val(MaskEdBox10) + Val(MaskEdBox12) + Val(MaskEdBox14) + Val(MaskEdBox16) + Val(MaskEdBox18)
End Sub Read More ..