VB.NET 比较问题
text6 = DateTime.Now.ToShortDateString
If ( text6 Is DateTime.Now.ToShortDateString) Then
MsgBox( " ")
End If
VB.NET 为什么会认为不一样呢,没有出现MSGBOX

[解决办法]
可能是Now的时间精度太高了，以至于当依次执行text6 = DateTime.Now.ToShortDateString和If ( text6 Is DateTime.Now.ToShortDateString) Then两句时，Now的时间值已经产生了变化。你可以将now只取到秒位试试看
[解决办法]
Is 是什么,怎么能用到这里呢?它是类型的比较,不是相等的运算
[解决办法]

改成这样就可以了:
Dim text6 As String= DateTime.Now.ToShortDateString
If (text6 = DateTime.Now.ToShortDateString) Then
MsgBox( " ")
End If

[解决办法]
Is 运算符确定两个对象引用是否引用同一个对象。但是，它不执行值比较。如果 object1 和 object2 都引用同一个对象，则 result 为 True；否则 result 为 False。