Private Sub Form_Click () ' Load the icons. MSHFlexGrid1.Row =1 MSHFlexGrid1.Col =1 Set MSHFlexGrid1.CellPicture =_ LoadPicture("Icons\Computer\Trash02a.ico") MSHFlexGrid1.Row =1 MSHFlexGrid1.Col =2 Set MSHFlexGrid1.CellPicture =_ LoadPicture("Icons\Computer\Trash02b.ico") End Sub
' Load the icons.
MSHFlexGrid1.Row =1
MSHFlexGrid1.Col =1
Set MSHFlexGrid1.CellPicture =_
LoadPicture("Icons\Computer\Trash02a.ico")
MSHFlexGrid1.Row =1
MSHFlexGrid1.Col =2
Set MSHFlexGrid1.CellPicture =_
LoadPicture("Icons\Computer\Trash02b.ico")
End Sub
MSHFlexGrid1.Rows = 4
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Row = 2
Set MSHFlexGrid1.CellPicture = LoadPicture("f:\logo.bmp")