Private Sub Command3_Click()
' استدعاء الكود الموجود في LOAD
Call Form_Load
''''''''''''''''''''''''''''''''''''''''
Dim k As Integer
Dim T As Integer
'هذه الحلقة تمر على كل الصفوف
For k = 1 To mshflexgrid1.Rows - 1
mshflexgrid1.Row = k
If Trim(Text1.Text) = Trim(mshflexgrid1.TextMatrix(k, 1)) Then
'وهذه الحلقة تلون كل الصف
'يمكن الغائها وتلوين خلية واحة او حسب الحاجة
For T = 0 To mshflexgrid1.Cols - 1
mshflexgrid1.Col = T
mshflexgrid1.CellBackColor = RGB(255, 161, 224)
Next T
End If
Next k
mshflexgrid1.Col = 0
mshflexgrid1.Row = 0
End Sub