这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”，你的这个程序是console（命令行）或者是无界面的？只能在有界面的程序中使用对话框的。
创新互联是一家专注于成都做网站、成都网站建设与策划设计,杭州网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:杭州等地区。杭州做网站价格咨询:18980820575
我想你说的那个智能提示应该是vs2005中人机交互的错误列表，这个作物列表可以自定义显示或者隐藏，点击菜单栏中的视图按钮后选择错误列表选项或者还原默认排列就可以重新显示了
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim 还款时间 As Date = "2012-10-30"
Dim n As Integer = DateAndTime.DateDiff(DateInterval.Day, DateAndTime.Now, 还款时间)
If n = 7 And n = 0 Then
TextBox1.Text = "距离还款时间还有" n "天"
End If
End Sub
当然可以
例如，你有一个方法，假如名叫Sort，没有参数，这样呢，就在
Sub Sort()的上面输入三个单引号（就是注释的那个），就会出现xml注释：
''' summary
'''
''' /summary
Sub Sort()
End Sub
在summary下面一行写“排序数组”（没有引号），这时，调用方法的时候，就有像你图上的那样子的代码提示
按回车当然会换行，只要你不再输入英文字母，就意味你认可了自动提示的内容，比方说按右括号，按空格，自动提示的当前选择会自动到代码，并出现括号和空格，回车也是同理。
你用的都是vb6的代码，改成：
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
