Obrigado pela dica.
O Suporte da DrawSuite também respondeu.
Segue resposta deles:
'Duplo Clique
Private Sub USFlexGrid1_DblClick()
Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub
'Clique
Private Sub USFlexGrid1_Click()
Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub
E segue abaixo com uma alteração que fiz no evento:
Nesse evento você consegue atualizar os campos usando as setas para cima e para baixo
Private Sub USFlexGrid1_Scroll()
Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub