Hi,
Try this example.
Private Sub MSHFlexGrid1_Click()
Dim Entry, i, Msg ' Declare variables.
Msg = "Choose OK to add 100 items to your MSHFlexGrid."
MsgBox Msg ' Display message.
MSHFlexGrid1.Cols = 2 ' Two strings per row.
For i = 1 To 100 ' Count from 1 to 100.
Entry = "Entry " & Chr(9) & i ' Create entry.
MSHFlexGrid1.AddItem Entry ' Add entry.
Next i
Msg = "Choose OK to remove every other entry."
MsgBox Msg ' Display message.
For i = 1 To 50 ' Determine how to
MSHFlexGrid1.RemoveItem i ' remove every other
Next i ' item.
Msg = "Choose OK to clear all items."
MsgBox Msg ' Display message.
MSHFlexGrid1.Clear ' Clear list box.
End Sub