vb.net - Form2.Show での VB NullReferenceException と InvalidOperationException ?

Question

2 番目のフォームを開くと、回避策が見つからない 2 つのエラーが表示されます。エラーは次のとおりです。

System.NullReferenceException & System.InvalidOperationException

Form2.Show() と競合するコードはありますか? これを修正する方法はありますか？多分それはDotNetBarですか？

    Option Explicit On

'Imports NAudio
Imports System.Net

Public Class Form1

    Dim SoundName As String
    'Dim Is64Bit As Boolean
    Dim mainDrive As String = Mid(Environment.GetFolderPath(Environment.SpecialFolder.System), 1, 3)
    Dim WithEvents WC As New WebClient

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'If Form2.SwitchButton1.Value = True Then
        'updateTimer.Start()
        'End If

        'Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
        Me.Height = 560
        MsgBox("Copyright © 2014 Johnathon Matczak - Do Not Distribute. Exclusive Indev (Pre-Alpha) Release.")
    End Sub

    Private Sub GlobalMute(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SwitchButton5.ValueChanged
        If SwitchButton5.Value = True Then
            SwitchButton1.Enabled = False
            SwitchButton2.Enabled = False
            SwitchButton3.Enabled = False
            SwitchButton4.Enabled = False

            SwitchButton1.Value = False
            SwitchButton2.Value = False
            SwitchButton3.Value = False
            SwitchButton4.Value = False
        Else
            SwitchButton1.Enabled = True
            SwitchButton2.Enabled = True
            SwitchButton3.Enabled = True
            SwitchButton4.Enabled = True
        End If
    End Sub

    Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX9.Click
        ContextMenuStrip1.Show(Me, cmsLocation.Location, ToolStripDropDownDirection.BelowRight)
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End 'Exit
    End Sub

    Private Sub displayWarning()
        Me.Height = 560
    End Sub

    '==============================ERROR v===============================

    Private Sub WarningBox1_OptionsClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarningBox1.OptionsClick
        If WarningBox1.OptionsText = "Update" Then
            Try
                Form3.Show()
            Catch ex As Exception
                MsgBox("Error upon opening: Update.")
            End Try
        ElseIf WarningBox1.OptionsText = "Options" Then
            Try
                Form2.Show()
            Catch ex As Exception
                MsgBox("Error upon opening: Options.")
            End Try

        End If
    End Sub

    '==============================ERROR ^===============================

    Private Sub WarningBox1_CloseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarningBox1.CloseClick
        Me.Height = 522

        WarningBox1.Visible = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateTimer.Tick
        Try
            WC.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/m4yc0q0p6tfifbc/update.txt?dl=1&token_hash=AAG_35IFFk_O-4j6gJDQHrScMnitm9Fm9fhOfH68EKEGcA"), mainDrive + "Program Files\Matczak Software\Uber DJ\update.txt")
        Catch ex As Exception
            MsgBox("Unable to check for updates! Please make sure you are connected to the internet!")
        End Try

        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText(mainDrive + "Program Files\Matczak Software\Uber DJ\update.txt")
        MsgBox(fileReader)

        If fileReader = "1" Then
            WarningBox1.Visible = True
            Me.Height = 560

            WarningBox1.OptionsText = "Update"
            WarningBox1.Text = "<b>Update Avaliable!</b> There is an update avaliable! Click <i>Update</i>  to update Uber DJ."
        Else

        End If

    End Sub

    Private Sub CheckBoxX2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxX2.CheckedChanged
        If CheckBoxX2.Checked = True Then
            'Listen to mic
        Else
            'Turn off listen
        End If
    End Sub
End Class