HScroll与VScroll在两个pic中的设置问题，高手帮解决一下！

我在画图是PIC.line时，很大，想用HScroll与VScroll在两个pic（，pic1为容器，）中的设置，可以实现滚动，我的代码如下，但是总是提示：编译错误：未找到方法或数据成员。错误的地方提示是.Max = 高手相助，若有更好的方法请给个例子！
Private Sub Form_Load()
      Call AdjHV
      Pic.Left = 0
      Pic.Top = 0
  End Sub

  Private Sub HScroll1_Change()
      Pic.Left = -(HScroll1.Value) * 10
  End Sub
  Private Sub VScroll1_Change()
      Pic.Top = -(VScroll1.Value * 10)
  End Sub
  Private Sub AdjHV()
  With frm_pic
            Htmp = (.Pic.Width - .Pic1.Width + 250) / 10
            Vtmp = (.Pic.Height - .Pic1.Height + 250) / 10
            If Htmp > 0 Then .HScroll1[u].Max = : .HScroll1.Enabled = True Else .Pic.Top = 0: .HScroll1.Enabled = False
            If Vtmp > 0 Then .VScroll1.Max = Vtmp: .VScroll1.Enabled = True Else .Pic.Left = 0: .VScroll1.Enabled = False
        .HScroll1.Value = 0
        .VScroll1.Value = 0
  End With
  End Sub
--------------------编程问答-------------------- With frm_pic
后边怎能用.Pic.Width?
直接.Width就行了
--------------------编程问答-------------------- 你用是VB6.0还是VB.net?
如果是是VB6.0
HScroll1[u].Max
是不合法的 --------------------编程问答-------------------- 回复楼上我的是VB6.0 那我现在该怎么做呢
--------------------编程问答-------------------- If Htmp > 0 Then .HScroll1[u].Max = :
这是什么？

还有把很多句写在一行干什么呢？
看起来多不方便！ --------------------编程问答-------------------- mark

补充：VB ,  控件