Lista F

Public Class Form1
    Dim Data As DateTime = Date.Now
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Timer1.Enabled = True


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        For X = 0 To ListBox1.Items.Count
            If ListBox1.Items.Item.X = Date.Hour Then
                MsgBox(ACORDA VAGABUNDO)
            End If
        Next
    End Sub
End Class