Знаки зодиака - вывод картинки - Visual Basic .NET - Ответ 7583919

Public Class ЗнакЗодіаку
    Friend Structure dmStr
        Friend day1 As Integer
        Friend day2 As Integer
        Friend month1 As Integer
        Friend month2 As Integer
        Friend comment As String
        Friend Sub New(ByVal d1 As Integer, ByVal d2 As Integer, ByVal mn1 As Integer, ByVal mn2 As Integer, ByVal cm As String)
            day1 = d1
            day2 = d2
            month1 = mn1
            month2 = mn2
            comment = cm
        End Sub
        Friend Function wwDate1() As Integer
            Return month1 * 100 + day1
        End Function
        Friend Function wwDate2() As Integer
            Return month2 * 100 + day2
        End Function
    End Structure
    Private zd As New List(Of dmStr)
    Private isLoad As Boolean
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        zd.Add(New dmStr(21, 20, 3, 4, "Овен"))
        zd.Add(New dmStr(21, 20, 4, 5, "Телец"))
        zd.Add(New dmStr(21, 21, 5, 6, "Близнецы"))
        zd.Add(New dmStr(22, 22, 6, 7, "Рак"))
        zd.Add(New dmStr(23, 23, 7, 8, "Лев"))
        zd.Add(New dmStr(24, 23, 8, 9, "Дева"))
        zd.Add(New dmStr(24, 23, 9, 10, "Весы"))
        zd.Add(New dmStr(24, 22, 10, 11, "Скорпион"))
        zd.Add(New dmStr(23, 21, 11, 12, "Стрелец"))
        zd.Add(New dmStr(22, 20, 12, 1, "Козерог"))
        zd.Add(New dmStr(21, 20, 1, 2, "Водолей"))
        zd.Add(New dmStr(21, 20, 2, 3, "Рыбы"))
 
        ImageList1.Items.Add("21.03-20.04 Овен.jpg")
        ImageList1.Items.Add("20.04-20.05 Телець.jpg")
        ImageList1.Items.Add("21.05-21.06 Близнюки.jpg")
        ImageList1.Items.Add("22.06 - 22.07 Рак.jpg")
        ImageList1.Items.Add("23.07 - 22.08 Лев.jpg")
        ImageList1.Items.Add("23.08 - 22.09 Діва.jpg")
        ImageList1.Items.Add("24.10 - 22.11 Скорпіон.jpg")
        ImageList1.Items.Add("23.11 - 21.12 Стрілець.jpg")
        ImageList1.Items.Add("22.12 - 20.01 Козеріг.jpg")
        ImageList1.Items.Add("20.01 - 18.02 Водолій.jpg")
        ImageList1.Items.Add("20.04 - 20.05 Телець.jpg")
        ImageList1.Items.Add("19.02 - 20.03 Риби.jpg")
        Label2.Text = ""
        Label3.Text = ""
        With Label2
            .Text = ""
            .ImageList = ImageList1
            .Size = New Size(92, 92)
            .BorderStyle = BorderStyle.FixedSingle
            .FlatStyle = FlatStyle.Flat
        End With
        isLoad = True
    End Sub
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        If Not isLoad Then Exit Sub
        Dim dt As Date = DateTimePicker1.Value
        Dim ww As Integer = dt.Month * 100 + dt.Day
        Dim ss = (From ff In zd Where (ff.wwDate1 <= ww And ff.wwDate2 >= ww)).ToArray
        Label2.Text = ss(0).comment
        Label3.Text = ss(0).day1 & "." & Format(ss(0).month1, "00") & " - " & _
                        ss(0).day2 & "." & Format(ss(0).month2, "00")
        Label3.ImageIndex = zd.IndexOf(ss(0))
    End Sub
 
 
End Class