请问清空立即窗口的函数

Question

'如果你非要这么做的话……
dim i as long
for i = 1 to 200
  debug.print
next

Answer 1

将光标落到立即窗口里，然后按Ctrl+A，然后按Delete。
你不会是要用代码清除吧？除非你在程序运行的时候显示出了立即窗口。

Answer 2

测试通过Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CHAR = &H102Private Sub Command6_Click()
    Dim vbide As Long
    Dim imme As Long
    vbide = FindWindow("wndclass_desked_gsk", vbNullString)
    If vbide Then
        imme = FindWindowEx(vbide, 0, "vbaWindow", vbNullString)
        If imme Then
            SendMessage imme, WM_CHAR, 61, &H1E0001
        Else
            MsgBox "not found immediate"
        End If
    Else
        MsgBox "not found vbide"
    End If
End Sub

Answer 3

倒！
反正都是debug嘛！
不如手动删！！：）