Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Timer1.Interval = 適当な監視間隔をミリ秒単位で指定



    Timer1.Start()

End Sub



Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    Dim dt As Date = Now

    Dim hm As Integer = dt.Hour * 100 + dt.Minute



    If 815 <= hm AndAlso hm < 900 Then

        TextBox1.Text = "テスト"

        TextBox1.ReadOnly = True

    Else

        TextBox1.ReadOnly = False

    End If



    If 900 <= hm And hm < 1000 Then

        TextBox2.Text = "テスト②"

        TextBox2.ReadOnly = True

    Else

        TextBox2.ReadOnly = False

    End If

End Sub