Filter vsFlexgrid

Contoh dibawah ini adalah bagaimana caranya menfilter vsFlexgrid dengan mengetikan awalan kata di Textbox

Private Sub Text12_Change()

Dim Kata As String

Dim i, Panjang As Long

Panjang = Len(Trim(Text12.Text))

For i = 1 To fg.Rows - 1

Kata = UCase(Left$(fg.TextMatrix(i, 1), Panjang))

If Kata <> UCase(Trim(Text12.Text)) Then

fg.RowHidden(i) = True

Else

fg.RowHidden(i) = False

End If

Next i

End Sub