uso de msflexgrid

[ReViJa]

Mira si te sirve...
En el ejemplo he usado dos formularios, FrmListar(contiene el msflxgrid) y FrmModificar que es el que va a recibir los datos en los textbox correspondientes.

Para que se quede seleccionada una fila completa

Código:

Private Sub MSFlexGrid1_Click()
  MSFlexGrid1.Col = 0
  MSFlexGrid1.ColSel = 4
End Sub

Si hay mas de una fila (asi no te dará errores si no hay registros en el flexgrid) manda los datos al otro formulario

Código:

Private Sub MSFlexGrid1_DblClick()

If MSFlexGrid1.Rows > 1 Then
   Select Case MsgBox("Seguro que desea modificar el registro?", vbInformation + vbYesNo, "ATENCIÓN!!!")
      Case vbYes
         MSFlexGrid1.Col = 0
         FrmModificar.Text1.Text = FrmListar.MSFlexGrid1.Text
         MSFlexGrid1.Col = 1
         FrmModificar.Text2.Text = FrmListar.MSFlexGrid1.Text
         MSFlexGrid1.Col = 2
         FrmModificar.Ttext3.Text = FrmListar.MSFlexGrid1.Text
         MSFlexGrid1.Col = 3
         FrmModificar.Text4.Text = FrmListar.MSFlexGrid1.Text
         MSFlexGrid1.Col = 4
         FrmModificar.Text5.Text = FrmListar.MSFlexGrid1.Text
         Unload Me
      Case vbNo
          'No modifica...
   End Select
End If

End Sub