Определить, является ли год високосным

Public Function checking7(textfield As Integer) As Boolean
        ' *********** Проверка для февраля месяца, если высокос тогда февраль до 28, иначе до 29***************
        If Form1.ComboBox1.SelectedItem(1) And Form1.s_year.Text \ 4 And Form1.s_bday.Text Like "[1-29]" Then
            Return True
        Else
            MsgBox("В феврале высокостного года, может быть только 29 дней")
        End If

Public Function chec2(text As String)
            Dim y As Integer
            Dim i As Integer
            Dim c As String
            c = Form1.ComboBox1.SelectedText
           i = Form1.s_bday.Text
            y = Form1.s_year.Text
           If i = 29 And y / 4 And c = "Февраль" Then
                Return i
            Else
                MsgBox("В феврале високосного года не может быть 29 дней!", vbCritical, "Error")
               chec2 = False
            End If
 
        End Function

MsgBox(Date.IsLeapYear(Now.Year))

If Form1.s_bday.Text Like "[1-29]" And Form1.ComboBox1.SelectedItem(1) And Date.IsLeapYear(Form1.s_year.Text) Then
            checking7 = True
        Else
            checking7 = False
end if

    Sub Button1Click(sender As Object, e As EventArgs)
        If Date.IsLeapYear(DateTimePicker1.Value.Year) Then
            label1.Text = "Високосный"
        Else
            label1.Text = "Невисокосный"
        End If
    End Sub

        Dim y As Integer
        Dim i As Integer
        Dim c As String
        c = ComboBox1.SelectedItem 'Здесь не SelectedText
        i = s_bday.Text
        y = s_year.Text
 
        If Date.IsLeapYear(y) And c = "Февраль" And i > 28 Then
            MsgBox("В феврале високосного года не может быть больше 28 дней!", vbCritical, "Error")
        ElseIf c = "Февраль" And i > 29 Then
            MsgBox("В феврале не високосного года не может быть больше 29 дней!", vbCritical, "Error")
        End If