vb6 - 年の月の最後の日を見つける (VB 6.0)

Question

月の最後の日を予測するプログラムを作成しています。月に値を付けることができましたが、うるう年かどうかを判断するために、年も記述する必要があります。オブジェクト: 2 つのテキストボックス、1 つのコマンド ボタン、1 つのラベル

残念ながら、ケースを選択する必要があります。

私のコード:

Private Sub Command1_Click()
Dim month, year As String

month = txtmonth.Text
year = txtyear.Text

Select Case month
Case "Feb", "February"
        lblday.Caption = CStr(Day(DateSerial(year, 3, 1) - 1))
Case "Jan", "January", "Mar", "March", "May", "Jul", "July", "Aug", "August", "Oct", "October", Dec, December
        lblday.Caption = "It has" & " " & CStr(Day(DateSerial(year, 3 + 2, 1) - 1)) & " " & "days"
'year/30/month
Case "April", "Jun", "June", "Sept", "September", "Nov", "November"
        lblday.Caption = "It has" & " " & CStr(Day(DateSerial(year, 3 + 1, 1) - 1)) & " " & "days"
'year/31/month
End Select

End Sub