исключение при показе формы

Question

Когда я запускаю мою программу и выберите Button8 я получаю:

Произошла ошибка при создании формы. См. Exception.InnerException для . Ошибка: Ссылка на объект не установлена ​​в экземпляр объекта .

Мой код выглядит просто -

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click 
    frequency.Show() 
    Me.Close() 
End Sub 

Ошибка на frequency.Show(), но я не знаю, как это исправить, как все это делает открытым другой формой. Я проверил проверку ошибок и исключений, но пока ничего не отображается, пока я не запустил его.

EDIT - добавлено frequency.Load код с комментариями.

Dim LineOfText 
Dim aryTextFile() As String 
Dim Line As String 
Using SR As New IO.StreamReader("...\mainmenu.txt") 
    Do While Not SR.EndOfStream 
     '________________ 
     LineOfText = My.Computer.FileSystem.ReadAllText("...\mainmenu.txt") 
     aryTextFile = LineOfText.Split(",") 
     For i = 0 To UBound(aryTextFile) 
      'MsgBox(aryTextFile(i)) 
     Next i 
     ' Read the file just created 
     Line = SR.ReadLine 
     TextBox1.Text = aryTextFile(0) 
     TextBox2.Text = aryTextFile(1) 
     TextBox3.Text = aryTextFile(2) 
     TextBox4.Text = Today 
     TextBox5.Text = aryTextFile(4) 
    Loop 
End Using 

Answer 1

Попробуйте это в Load() событие вместо:

Public Class frequency 

    Private Sub frequency_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Try 
      Dim Lines() As String = System.IO.File.ReadAllLines("...\ MainMenu.txt") 
      Dim aryTextFile() As String = Lines(0).Split(",") 
      TextBox1.Text = aryTextFile(0) 
      TextBox2.Text = aryTextFile(1) 
      TextBox3.Text = aryTextFile(2) 
      TextBox4.Text = Today 
      TextBox5.Text = aryTextFile(4) 
     Catch ex As Exception 
      MessageBox.Show("Error Loading File") 
     End Try 
    End Sub 

End Class