Sub btCSOK_Click
' If iRowSelect <> -1 Then
Dim R(3) As Object
R(0) = tblCS.GetValue(1,iRowSelect)
R(1) = tblCS.GetValue(2,iRowSelect)
R(2) = tblCS.GetValue(3, iRowSelect)
CallSub2(oClassCalled,"AsignCompanySelect",R)
CallSub(oClassCalled, "AsignCompanySelect")
' End If
Activity.Finish
End Sub