ซ่อน Form ไว้ แล้วต้องการเรียกขึ้นมาทำงานเมื่อถึงเวลาทำอย่างไรดีครับ ในฐานข้อมูลผมออกแบบไว้เป็นแบบนี้

Imports System.Data.SqlClient
Imports System.Data
Imports MySql.Data.MySqlClient

Public Class frmlogin

    Private Sub bttexitlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttexitlogin.Click
        frmadmin.Show()
    End Sub

    Private Sub bttlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttlogin.Click

        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL, strNUMANDDATE, strMEMBERID As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=library; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim checkid As Integer
        Dim checkcomanddate As Integer
        Dim checkmemid As Integer

        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtusername.Text & "' AND Password = '" & Me.txtpassword.Text & "'"
        objCmd = New MySqlCommand(strSQL, objConn)
        checkid = objCmd.ExecuteScalar()

        strNUMANDDATE = "SELECT COUNT(*) FROM book WHERE book_no = '" & Me.lblnum.Text & "' AND book_date = '" & Format(Now, "yyyy-MM-dd") & "'"
        objCmd = New MySqlCommand(strNUMANDDATE, objConn)
        checkcomanddate = objCmd.ExecuteScalar()



        If checkid > 0 Then
            If checkcomanddate > 0 Then
                Me.Hide()
            Else
                MessageBox.Show(" คุณไม่ได้จองเครื่องคอมพิวเตอร์ในช่วงเวลาดังกล่าว ")
            End If
        Else
            MessageBox.Show(" ชื่อผู้ใช้งาน หรือ รหัสผ่านไม่ถูกต้อง ")
        End If

        objConn.Close()
        objConn = Nothing

    End Sub
End Class