Показ формы не вызывается после второго показа

Question

Итак, я использую Visual Basic для создания приложения Windows Form.У меня есть кнопки на боковой панели, чтобы выбрать таблицу , как это .Когда нажата кнопка «бронирование», пользователь принимает форму, которая выглядит как .Мне нужно, чтобы следующий код запускался каждый раз, когда форма показывается (форма скрыта, показана несколько раз).Я поместил приведенный ниже код как в загрузку формы, так и в действия, показанные в форме, и они будут запускать код только в первый раз.Код на самом деле не актуален, мне просто нужно знать, как я могу сделать это каждый раз, когда отображается форма, а не только один раз.Единственный способ думать о том, что работает, - это запускать код каждую секунду, что просто не нужно и приводит к пустой трате вычислительной мощности.Кроме того, если я хотел, чтобы после этого выполнялось другое действие, действие, которое происходит каждую секунду, будет иметь приоритет.

 Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    If GlobalVariables.GlobalFlag = "1" Then
        Table1Sleep.Visible = False
        Table1Selected.Visible = True
        Table1Selected.BringToFront()
        table1text.BringToFront()
        table1textdesc.BringToFront()
    ElseIf GlobalVariables.GlobalFlag = "2" Then
        Table2Sleep.Visible = False
        Table2Selected.Visible = True
        Table2Selected.BringToFront()
        table2textdesc.BringToFront()
        table2text.BringToFront()

    ElseIf GlobalVariables.GlobalFlag = "3" Then
        Table3Sleep.Visible = False
        Table3Selected.Visible = True
        Table3Selected.BringToFront()
        table3text.BringToFront()
        table3textdesc.BringToFront()
    ElseIf GlobalVariables.GlobalFlag = "4" Then
        Table4Selected.Visible = True
        Table4Selected.BringToFront()
        tabel4text.BringToFront()
        table4textdesc.BringToFront()
        table4sleep.Visible = False
    ElseIf GlobalVariables.GlobalFlag = "5" Then
        Table5Selected.Visible = True
        table5sleep.Visible = False
        Table5Selected.BringToFront()
        table5text.BringToFront()
        table5textdesc.BringToFront()
    ElseIf GlobalVariables.GlobalFlag = "6" Then
        table6sleep.Visible = False
        Table6Selected.Visible = True
        Table6Selected.BringToFront()
        table6text.BringToFront()
        table6textdesc.BringToFront()
    Else
        MessageBox.Show("Something went wrong. When you press 'OK', you will be taken back to the Main Menu.")
        MainMenuForm.Show()
        Me.Close()
    End If
End Sub

Спасибо :))