Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim btimeA As DateTime
        btimeA = FormatDateTime(Btime1.Value, DateFormat.LongTime)
        If FormatDateTime(TimeOfDay, DateFormat.LongTime) = btimeA.AddMinutes(20) Then
            MsgBox("Booking Time up Mr/Miss " & Bcusname1.Text & " is late,reservation canceled")
            Table1.BackColor = Color.PaleGreen
            status2 = "Available"
        End If
    End Sub

 
Private Sub bubu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RButton.Click
        If tableno = 1 Then
Dim bTimeUp As DateTime
bTimeUp = TimeSerial(btime1.Hour - 2, btime1.Minute, btime1.Second)
If TimeSerial(TimeOfDay, DateFormat.LongTime, DateFormat.LongTime) Then 
            status1 = "Booked"
            Table1.BackColor = Color.Khaki
            Spanel.Hide()
            Rpanel1.Show()
        End If

bTimeUp = TimeSerial(btime1.Hour - 2, btime1.Minute, btime1.Second)

bTimeUp = TimeSerial(Btime1.Hour - 2, Btime1.Minute, Btime1.Second)

If TimeSerial(TimeOfDay, DateFormat.LongTime, DateFormat.LongTime)