Private Sub CmbMonth2_Click() Dim i As Integer, dt As String CmbDay2.Clear dt = CmbDay1.Text & "/" & CmbMonth1.Text & "/" & CmbYear1.Text For i = 1 To DateDiff("d", DateAdd("d", 7, dt), DateAdd("m", 1, DateAdd("d", 7, dt))) CmbDay2.AddItem i Next i CmbDay2.Text = Day(DateAdd("d", 7, dt))....error in this line 386 runtime text property read only. End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)