Using the RowColChange in Visual Basic 6.0 (The Basic)

Click Image to Enlarge

Author: Ken V.

Private Sub MSHFlexGrid1_RowColChange()
    With MSHFlexGrid1
       Text1.Text = .TextMatrix(.RowSel, 0)
        Text2.Text = .TextMatrix(.RowSel, 1)
        Text3.Text = .TextMatrix(.RowSel, 2)
        Text4.Text = .TextMatrix(.RowSel, 3)
        Text5.Text = .TextMatrix(.RowSel, 4)
        Text6.Text = .TextMatrix(.RowSel, 5)
        Text7.Text = .TextMatrix(.RowSel, 6)
        Text8.Text = .TextMatrix(.RowSel, 7)
        Text9.value = .TextMatrix(.RowSel, 8)
        Text10.Text = .TextMatrix(.RowSel, 9)
        Text11.Text = Format$(Val(.TextMatrix(.RowSel, 10)), "#0.00")

   End With
End Sub