Como retornar a quantidade de dias em um determinado mês e ano

'Este exemplo mostra como obter a quantidade de dias em
'um mês e ano

Module Module1
  Sub Main()
    'obtém a quantidade de dias do mês de fevereiro de 2007
    Dim quant As Integer = System.DateTime.DaysInMonth(2007, 2)

    Console.WriteLine("Fevereiro/2007 possui " & quant & " dias")

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module