Form1.vb

 Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        settings.Show()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Label5.Text = DateString
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label4.Text = TimeOfDay
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TimeOfDay = Label1.Text Then
            Dim SAPI
            SAPI = CreateObject("sapi.spvoice")
            SAPI.Speak(settings.TextBox2.Text)
        End If
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        Dim SAPI
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak(Label4.Text)
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        Dim SAPI
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak(Label5.Text)
    End Sub
End Class

Project Homepage: