سلام
Private Sub Form_Load()
VSFlexGrid1.RowHeight(0) = 350
End Sub
Private Sub VSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With VSFlexGrid1
If Y <= .RowHeight(0) Then
.Cell(flexcpPicture, 0, 0, 0, .Cols - 1) = LoadPicture()
.Cell(flexcpData, 0, 0, 0, .Col - 1) = 0
.Cell(flexcpPicture, 0, .Col) = IIf(.ColData(.Col), Image1.Picture, Image2.Picture)
.Cell(flexcpPictureAlignment, 0, .Col) = flexPicAlignCenterCenter
.ColData(.Col) = Not .ColData(.Col)
End If
End With
End Sub