VB出错！急！求好心人解决！

Private Sub mnuopen_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "pictures(*.gif)|*.gif|pictures(*.bmp)|*.bmp|pictures(*.jpg)|*.jpg|"
CommonDialog1.Action = 1
CommonDialog1.DialogTitle = "打开文件"
imagem = CommonDialog1.FileName
If imagem = "" Then
MsgBox "未选择文件！", vbOKOnly + vbExclamation
End If
Picture1.picture = LoadPicture(imagem)
frmfilters.Refresh

X = Picture1.ScaleWidth
Y = Picture1.ScaleHeight
If X > 10095 Or Y > 6495 Then
MsgBox "图片太大，请重新选择！", vbOKOnly + vbExclamation
ErrHandler
Exit Sub
End If

End Sub
运行的时候总出现“子过程或函数未定义”，应该怎样解决？
很急～希望高手帮忙！！

VB出错！急！求好心人解决！ 电脑程序出错急求解决！！！ 加载RUNDLL时出错怎么解决啊，急求！ vb 求异常处理的代码，解决 复制已打开文件出错 关于VB的问题 急求高手解决 求高手解决VB窗口问题！ 急啊！！ 求好心人帮帮忙啊～急啊～关于SQL实训（VB）的 急求好心人帮助！ 求急！好心人帮帮忙 求好心人帮忙! [急]