При выполнении Show() создается новая форма

'в первой форме:
Private Sub FirstFormNextStepButton_Click(sender As Object, e As EventArgs) Handles FirstFormNextStepButton.Click
 
       Me.Hide()
       SecondStep.Show()
 
    End Sub
 
'во второй:
Private Sub SecondFormNextStepButton_Click(sender As Object, e As EventArgs) Handles SecondFormNextStepButton.Click
 
        Me.Hide()
        FirstStep.Show()
 
    End Sub

Public Class Form1
    Private f2 As New Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Hide() 'Скрываем первую форму
        'подписываемся на событие изменения видимости второй формы
        AddHandler f2.VisibleChanged, AddressOf f2_visibleChanged
        'Показываем вторую форму
        f2.Show()
    End Sub
 
    Private Sub f2_visibleChanged(sender As Object, e As EventArgs)
        'Если вторая форма стала видимой, то ничего не делаем
        If f2.Visible Then Exit Sub
        'Показываем первую форму
        Show()
        'отписываемся от события изменения видимости второй формы
        RemoveHandler f2.VisibleChanged, AddressOf f2_visibleChanged
    End Sub
End Class

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Hide()
    End Sub
End Class

Dim FirstStep As New FirstStep
.............
Dim SecondStep As New SecondStep
.............
Dim ThirdStep As New ThirdStep

Public Class ThemesOfRequests
 
    Friend Sub ThemesOfRequests()
        sThemeOfRequest(1, 1) = "В связи с проведением инвентаризации и выявлением имущества итд итп......."
        sThemeOfRequest(1, 2) = "Администрация"
 
        ' и весь массив (размером 20*2) таким же образом заполняется дальше в этой функции
 
    End Sub
 
End Class

Dim ThemesOfRequests As New ThemesOfRequests