主题：请老大帮忙看看究竟是怎么会事（已解决）

代码和设置如下图：

此主题相关图片如下：未命名.jpg

单条件不符合时就如下图： 

此主题相关图片如下：未命名1.jpg

当点击取消或右上角的“X”关闭就会提示下图的错误：

此主题相关图片如下：未命名2.jpg


此主题相关图片如下：未命名3.jpg

请问这究竟是怎么回事啊？

代码如下：

Dim sjhm As String = e.Form.Controls("TextBox1").Value
If sjhm IsNot Nothing Then
If sjhm.Length < "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
ElseIf sjhm.Length = "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = False
e.Form.Controls("PictureBox5").Visible = True
End If
Else
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
End If