invalidOperationException未处理

Question

我有一个简单的vb.net应用程序，包含下一个组件：1个文本框，2个单选按钮，1个按钮。

我找到了下一个代码来检测文本框（名为EmailTextBox）是否填充了电子邮件地址。

    Email = Regex.IsMatch(EmailTextBox.Text, "\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\Z", RegexOptions.IgnoreCase)
    If Not Email Then
        MsgBox("Email format is not valid")
    Else
        MsgBox("Email format is valid")
    End If

Radiobuttons被称为＆＃34; gmailradio＆＃34;和＆＃34;其他无线电＆＃34;。 代码的下一部分将检测插入到emailtextbox（文本框）中的电子邮件地址是gmail电子邮件地址还是其他提供商提供的地址。

Dim emailaddress1 As String = EmailTextBox.Text
Dim provideremail As String() = emailaddress1.Split("@")
Dim result As String = provideremail(1)

和EmailTextBox_TextChanged内部我有类似的东西

Private Sub EmailTextBox_TextChanged(sender As Object, e As EventArgs) Handles EmailTextBox.TextChanged
    If result = "gmail.com" Then
        gmailradio.Checked = 1
    Else
        otherradio.Checked = 1
    End If
End Sub

我不明白我做错了什么。我总是得到这个错误＆＃34; invalidOperationException未处理＆＃34;

你能帮我吗？

编辑：

如果我删除这三行Dim emailaddress1 As String = EmailTextBox.Text Dim provideremail As String() = emailaddress1.Split("@") Dim result As String = provideremail(1) 我不再得到错误了，但是如果我开始添加第一行（＆＃34; Dim emailaddress1 As String = EmailTextBox.Text＆＃34;）Visual Studio将我驱动到Application.Design.vb文件，突出显示下一行

   Protected Overrides Sub OnCreateMainForm()
        Me.MainForm = Global.Find_Mail.Form1

有问题。