Call Function ?

[piper09]

Private Sub I1_Click()
TotalI = Val(I1) + Val(I2) + Val(I3) + Val(I4)
WgtI = TotalI / 40 * 30
T1.Cls
W1.Cls
TotalW.Cls
T1.Print TotalI
W1.Print WgtI
TotalWgt = WgtI + WgtII + WgtIII
TotalW.Print TotalWgt
End Sub

Private Sub I2_Click()
TotalI = Val(I1) + Val(I2) + Val(I3) + Val(I4)
WgtI = TotalI / 40 * 30
T1.Cls
W1.Cls
TotalW.Cls
T1.Print TotalI
W1.Print WgtI
TotalWgt = WgtI + WgtII + WgtIII
TotalW.Print TotalWgt
End Sub

I want know how to do the call function for it and its on vb6.0?

Thank You.

[Rabbit]

Call the function for what? I don't know what you're trying to ask.