试试
SystemReady = False
Dim cmb As WinForm.TextBox = Forms("拼卷").Controls("TextBox6")
Dim cmb2 As WinForm.TextBox = Forms("拼卷").Controls("TextBox11")
Dim cmb3 As WinForm.TextBox = Forms("拼卷").Controls("TextBox12")
Dim cmb4 As WinForm.TextBox = Forms("拼卷").Controls("TextBox13")
Dim cmb5 As WinForm.TextBox = Forms("拼卷").Controls("TextBox10")
Dim txt As Integer = cmb.Value
Dim txt2 As Integer= cmb2.Value
Dim txt3 As Integer= cmb3.Value
Dim txt4 As Integer= cmb4.Value
cmb5.Value=txt+txt2+txt3+txt4
cmb5.WriteValue
SystemReady = True