Now it works but I have changed a bit
I deleted this:
Public Sub JBGrid_clear(Grid as JBGrid)
rows=Grid.Rows
Grid.Rows=0
Grid.Rows=rows
End Sub
Use only this:
Public Sub Command1_Click()
myGrid.Rows=0
end sub
I rescinded this:
Grid.Rows=rows because the data is deleted and reappear, you should have jgrid other objects as well as the clear command
gracias