hi!!
the space is a copy paste error
correction:
Sub Button4_Click
Form1.Show
table1.AddCol(cString,"Item",85)
table1.AddCol(cNumber,"Quant.",40)
table1.AddCol(cNumber,"P.Unit.",50)
table1.AddCol(cNumber,"P.Parc.",50)
End Sub
Sub btnGravar_Click
Nome=tbNome.text ' item
Quantidade=tbQuantidade.Text 'Quant.
PrecoUnidade=tbPrecoUnidade.Text 'P.Unit.
precoParcial=tbQuantidade.Text*tbPrecoUnidade.Text 'P.Parc.
table1.AddRow(Nome,Quantidade,PrecoUnidade,precoPa rcial)
End Sub