Handy Hint 1 - For Each Loop; Loop For Arrays

Dim Test() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
For Each p As Integer In Test
    MessageBox.Show(p)
Next
Handy Hint 2 - Time of Day

Dim Time as String = TimeOfDay.ToString
'To get just the hours, do this
Dim Hour As Integer = TimeOfDay.Hour
 
MessageBox.Show(Hour)