If p1at.Text = 0 Then
p1ts = p1at.Text
p1tc = p1bt.Text
t1.Text = p1ts
t2.Text = p1tc
If p1tc > p2at.Text Then
p2tc = Val(p1tc) + Val(p2bt.Text)
t3.Text = p2tc
Else
p2tc = Val(p1tc - p2bt.Text) + Val(p2bt.Text)
t3.Text = p2tc
If p2tc > p2at.Text Then
p3tc = Val(p2tc) + Val(p3bt.Text)
t4.Text = p3tc
Else
p3tc = Val(p2tc - p3bt.Text) + Val(p3bt.Text)
t4.Text = p2tc
end if
end if
end if
there is a problem with my code. help. ..