ListWriting

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim daysInMonth As String
        Select Case lstMonths.Text
            Case "September", "April", "June", "November"
                daysInMonth = "30"
            Case "February"
                daysInMonth = "28 or 29"
            Case Else
                daysInMonth = "31"
        End Select
        txtDays.Text = daysInMonth

    End Sub

End Class