Private Sub Form_Load()With Me.MSHFlexGrid1.Rows = 3.Cols = 2.ColWidth(1) = 2000.TextMatrix(1, 0) = "ToDay Date".TextMatrix(1, 1) = Format(Date, "mm/dd/yyyy")End WithEnd Sub