大家帮看看程序到底错在那里？？ 谢谢

Question

Option Explicit
  Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
    
    Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type    
  Private Sub Command1_Click()
  Dim tDoc As MSHTML.HTMLDocument
  Dim tIV As IViewObject
    
  Dim tRc As RECT
    
  Dim tOw&, tOh&, tSw&, tSh&
    
  tOw = WebBrowser1.Width
  tOh = WebBrowser1.Height
    
  Set tDoc = WebBrowser1.Document
  Set tIV = tDoc
    
  tDoc.body.Scroll = "no"
    
  tSw = tDoc.body.scrollWidth + 4
  tSh = tDoc.body.scrollHeight + 4
    
  Dim tHdl&
  tHdl = GetWebHwnd()
    
  MoveWindow tHdl, 0, 0, tSw, tSh, 0
    
  tRc.Right = tSw
  tRc.Bottom = tSh
    
  Picture1.Cls
  Picture1.Move Picture1.Left, Picture1.Top, tSw, tSh
   
*****************************************************************
 
  tIV.Draw DVASPECT_CONTENT, 1, ByVal 0, ByVal 0, _
                  0&, Picture1.hDC, tRc, tRc, ByVal 0, ByVal 0
****************************************************************
这个地方出错了 :
提示:
Byref 参数类型不符
****************************************************************
    
  tDoc.body.Scroll = "yes"
  MoveWindow tHdl, 0, 0, tOw, tOh, 1
  SavePicture Picture1.Image, "c:\web.bmp"
  Picture1.Cls
    
  End Sub
    
    
  Private Sub Form_Load()
  WebBrowser1.Navigate "www.pconline.com.cn"
  End Sub
    
  Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  Cancel = True
  End Sub
    
    
  Private Function GetWebHwnd() As Long
  Dim tHdl&
  tHdl = FindWindowEx(Me.hwnd, 0, "Shell   Embedding", "")
  If tHdl <> 0 Then
          tHdl = FindWindowEx(tHdl, 0, "Shell   DocObject   View", "")
          If tHdl <> 0 Then
                          GetWebHwnd = tHdl
          End If
  End If
  End Function大家帮看看程序到底错在那里？？ 谢谢

Answer 1

这段程序要实现如下目的：
将 webbrower 控件中的网页保存为图片 需要下载
http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip

Answer 2

哈哈,我也出现过这样的问题,不过不知道能你能帮啊,在&前后都加一个空格试试
tIV.Draw DVASPECT_CONTENT, 1, ByVal 0, ByVal 0, _
                  0 & , Picture1.hDC, tRc, tRc, ByVal 0, ByVal 0

Answer 3

霍霍 终于弄明白了
问题出在 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type啊啊 把它删了就好了