Private Sub DataGrid1_Click()
colonna = DataGrid1.Col
rigA = DataGrid1.Row
TESTO = DataGrid1.Text
End Sub

SB