' Copy and paste into your program
 DECLARE SUB StringGrid1SelectCell (Col AS LONG, Row AS LONG, CanSelect AS LONG, Sender AS QSTRINGGRID)

 CREATE Form AS QFORM
  CAPTION = "Form1"
  Width = 424
  Height = 434
  Center
  CREATE StringGrid1 AS QSTRINGGRID
   Left = 0
   Top = 0
   Height = 400
   Width = 416
   Align = 5
   RowCount = 43333
   OnSelectCell = StringGrid1SelectCell
  END CREATE
 END CREATE

'Insert your initialization code here

 Form.SHOWMODAL

'--------- Subroutines ---------

 SUB StringGrid1SelectCell (Col AS LONG, Row%, CanSelect AS LONG, Sender AS QSTRINGGRID)
  SHOWMESSAGE STR$(row)
 END SUB