[RESOLVED] create calendar with msflexgrid flexgrid grid control

[firezap]

please finish for me or help. No need for years. January, March, May, July, August, October, December have 31 days. September, April, June, November have 30 days.

Private Sub Form_Load()
    Dim C As Integer
    Dim R As Integer

    cboMonth.AddItem "January"
    cboMonth.AddItem "February"
    cboMonth.AddItem "March"
    cboMonth.AddItem "April"
    cboMonth.AddItem "May"
    cboMonth.AddItem "June"
    cboMonth.AddItem "July"
    cboMonth.AddItem "August"
    cboMonth.AddItem "September"
    cboMonth.AddItem "October"
    cboMonth.AddItem "November"
    cboMonth.AddItem "December"
    
    cboDay.AddItem "Monday"
    cboDay.AddItem "Tuesday"
    cboDay.AddItem "Wednesday"
    cboDay.AddItem "Thursday"
    cboDay.AddItem "Friday"
    cboDay.AddItem "Saturday"
    cboDay.AddItem "Sunday"
    
    MSFlexGrid1.Rows = 6
    MSFlexGrid1.Cols = 7
    MSFlexGrid1.FixedCols = 0
    
    For C = 0 To MSFlexGrid1.Cols - 1
       MSFlexGrid1.ColWidth(C) = 600
    Next C
    For R = 0 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.RowHeight(R) = 600
    Next R
    
    With MSFlexGrid1
        .Row = 0
        .Col = 0
        .Text = "Mon"
        .Col = 1
        .Text = "Tue"
        .Col = 2
        .Text = "Wed"
        .Col = 3
        .Text = "Thu"
        .Col = 4
        .Text = "Fri"
        .Col = 5
        .Text = "Sat"
        .Col = 6
        .Text = "Sun"
    End With
End Sub