Private Sub DatePick_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatePick.ValueChanged
 Dim Month As Integer = Me.DatePick.Value.Month
 Dim Julian As Integer = Me.DatePick.Value.Day
 Dim Year As Integer = Me.DatePick.Value.Year
 If IsDate("2/29/" & Year) Then Days(2) = 29 Else Days(2) = 28
 Dim M As Integer
 For M = 1 To Month - 1
   Julian = Julian + Days(M)
 Next M
 Me.Text = "Day " & Julian
End Sub 'DatePick_ValueChanged