[king2512010]

وده كود تانى لم يفلح ايضا معى

PHP كود :

Private Sub Command4_Click()

    With Grid
        Dim row As Integer: For row = 1 To .Rows - 1
            If InStr(.TextMatrix(row, 1), Me.Text7.Text) > 0 Then
                .FocusRect = flexFocusNone
                .SelectionMode = flexSelectionByRow
                .row = row
                .Col = .Cols - 1
                .ColSel = 1
                .TopRow = IIf(row > 1, row - 1, row)
                Exit For
            End If
        Next
    End With

End Sub
ارجو المساعدة ... شاكرا مقدما