Code:
  Public Function IsDayTime() As Boolean
    Return DateTime.Now.TimeOfDay >= New TimeSpan(6, 0, 0) AndAlso DateTime.Now.TimeOfDay <= New TimeSpan(18, 0, 0)
  End Function