189 8069 5689
这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”，你的这个程序是console（命令行）或者是无界面的？只能在有界面的程序中使用对话框的。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、虚拟空间、营销软件、网站建设、故城网站维护、网站推广。
你用的都是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
一共有三个地区啊，第一就是弹出来窗口上面蓝条下面的位置，显示比如“请输入”。第二就是弹出来窗口的标题了，第三个位置就是可输入部分显示的示范内容。
如inputbox("请输入生日","标题","1986-12-11")
用提示筐
MsgBox(消息文本，显示按纽，标题）
例如：msgbox("是否退出系统?",vbokcancel+vbquestion,"提示")
当然可以
例如，你有一个方法，假如名叫Sort，没有参数，这样呢，就在
Sub Sort()的上面输入三个单引号（就是注释的那个），就会出现xml注释：
''' summary
'''
''' /summary
Sub Sort()
End Sub
在summary下面一行写“排序数组”（没有引号），这时，调用方法的时候，就有像你图上的那样子的代码提示