一般是不行的,如果你确实需要这样的功能,可以从微软或其它网站下载一个DebugView调试工具安装到计算机中,
在vb中用类似下面的方法调用
Option Explicit
'vb中DebugView工具的使用
Private Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String)
Private Sub Command1_Click()
Dim s As String
s = "这是一个 DebugView工具的测试!" & Chr(13) & _
"请先将DebugView工具软件打开"
Call OutputDebugString(ByVal s)
Call OutputDebugString(ByVal "测试结束!")
End Sub