Can i check time slot using select case statement in vb.net

Public Class Form1
    Delegate Sub SetTextCallback(ByVal [text] As String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Create an inferred delegate that invokes methods for the timer.
        Dim tcb As TimerCallback = AddressOf CheckSendReport
        Dim oTimer As System.Threading.Timer = New System.Threading.Timer(tcb, 0, 0, 60000)
    End Sub
    
    'This method is called by the timer delegate.
    'Every (period time - in example 60000) we call DrawMessage sub
    Sub CheckSendReport(ByVal state As Object)
        Dim dTime As Date = Date.Now
        If dTime.Minute = 30 Then
            DrawMessage(dTime.ToString & " - Now!")
        Else
            DrawMessage(dTime.ToString & " - Not yet!")
        End If
    End Sub

    'draw message
    Private Sub DrawMessage(ByVal sMsg As String)
        If Me.Label1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf DrawMessage)
            Me.Invoke(d, New Object() {sMsg})
        Else
            Me.Label1.Text = sMsg
        End If
    End Sub
End Class