求语句的错在哪里

'设置scalemode为像素
Form1.ScaleMode = vbPixels
Picture7289151.ScaleMode = vbPixels
'讲AutoSize设置为true，以使picture2为边界扩展到实际的位图大小
Picture2.AutoSize = True
'将每个图片框的Borderstyle的属性设置为none
Picture1.BorderStyle = 0
Picture2.BorderStyle = 0
'加载位图
Picture = LoadPicture("D:\My Documents\My Pictures\qq\7289151.jpg")
'初始化两个图片框的位置
Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height
Picture2.Move 0, 0
'将水平滚动条定位
HScrol.Top = Picture1.Height
HScrol.Left = 0
HScrol.Height = Picture1.Height
'将垂直滚动条定位
VSscroll1.Top = 0
VScroll1.Left = Picture1.Width
VScroll1.Height = Picture1.Height
'设置滚动条的Max属性
HScroll7289151.Max = Picture2.Width - Picture1.Width
VScroll7289151.Max = Picture2.Height - Picture1.Height
'判断子图片框是否充满屏幕，若如此，则无需使用权用滚动条
VScroll1.Visible = (Picture1.Height < Picture2.Height)
HScroll1.Visible = (pictuer1.Width - Picture2.Width)      

提示说最后一句错误，错误424 说要求对象 ，但我不知道错在哪里

HScroll1.Visible = (pictuer1.Width - Picture2.Width) 

--->

HScroll1.Visible = (picture1.Width - Picture2.Width)