Public Class Timetable
    Private Sub Timetable_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dte As DateTime = DateTime.Now
        txt_week.Text = FormatDateTime(dte, DateFormat.LongDate)

    End Sub

    Private Sub pbx_ExitButton_Click(sender As Object, e As EventArgs) Handles pbx_ExitButton.Click

        If MsgBox("Are you sure you want to exit to the staff form?", vbYesNo) = vbYes Then 'shows the user a message box that asks if they want to exit to the staff form

            'when the exit button is clicked, exit the form if yes is selected
            Dim staff As New Staff 'creates new instance of the staff form
            staff.Show() 'shows the staff form
            Me.Close() 'closes the currrent form


        End If

    End Sub

    Private Sub btn_Help_Click(sender As Object, e As EventArgs) Handles btn_Help.Click

        Help.txt_help.Text = "This form shows the staff timetable. You can exit back to the staff form using the cross button in the top right."
        Help.Show()

    End Sub
End Class