各位看看这段代码有什么问题

Question

Option Explicit
 Private WithEvents dw As PictureBox
 Private picpath As String Public Property Let pth(ByVal str As String)
  picpath = str
 End Property
 
Public Sub chuli() dw.Picture = LoadPicture(picpath)'这句执行通不过
 
End Sub
谢谢

Answer 1

picpath的值不对。你调试一下，看看picpath的值是什么？

Answer 2

不是值不对，你就是换了
dw.AutoSize = True也不行的我的这句代码是写在类里的我想在类里利用picturebox控件来做图象处理最后生成.dll文件给asp调用的出错信息是：对象变量或with块变量未设置谢谢

Answer 3

这种的实例化，我不知道怎么弄能否给出代码，谢谢
我用
set dw=new picturebox 不行的