我界面上有一个picturebox控件。
我一开始初始化
PicFrame.Width = 1400
后来调用一个函数，如下：
'数据显示窗口宽度初始化
Private Sub InitialGraph(ByVal Pic As PictureBox, ByVal XMin As Long, ByVal XMax As Long, ByVal YMin As Integer, ByVal YMax As Integer)
  
  intDisplayWidth = Pic.ScaleWidth - Pic.ScaleLeft - intLeftMargin - intRightMargin   '计算动态曲线显示窗口的宽度
  intDisplayHeight = Pic.ScaleHeight - Pic.ScaleTop - intTopMargin - intBottomMargin   '计算动态曲线显示窗口的宽度
  
  intPixelsPerStepInX = intDisplayWidth / (XMax - XMin) / 20  '计算每两相邻点间像素数
  'intPixelsPerStepInX = 1
  intDisplayWidth = intPixelsPerStepInX * (XMax - XMin) * 20 '重新计算动态曲线显示窗口的宽度
  
 ' PicFrame.Width = intLeftMargin + intRightMargin + intDisplayWidth  '将曲线显示窗口的宽度设为像素的整数倍
 
  Pic.Width = intLeftMargin + intRightMargin + intDisplayWidth  '将曲线显示窗口的宽度设为像素的整数倍
End Sub
调用语句：
InitialGraph PicFrame, intXMin, intXMax, intYMin, intYMax '初始化数据显示窗口宽度
调用了这个函数，发现PicFrame.Width=1065
，参数没传过去。
貌似不能这样传参数，那应该怎么传呢？谢谢！

怎么按地址传递？你教我

谢谢！
Private Sub InitialGraph(ByRef Pic As PictureBox, ByVal XMin As Long, ByVal XMax As Long, ByVal YMin As Integer, ByVal YMax As Integer)
  intDisplayWidth = Pic.ScaleWidth - Pic.ScaleLeft - intLeftMargin - intRightMargin   '计算动态曲线显示窗口的宽度
  intDisplayHeight = Pic.ScaleHeight - Pic.ScaleTop - intTopMargin - intBottomMargin   '计算动态曲线显示窗口的宽度
  
  intPixelsPerStepInX = intDisplayWidth / (XMax - XMin) / 20  '计算每两相邻点间像素数
  'intPixelsPerStepInX = 1
  intDisplayWidth = intPixelsPerStepInX * (XMax - XMin) * 20 '重新计算动态曲线显示窗口的宽度
  
  PicFrame.Width = intLeftMargin + intRightMargin + intDisplayWidth  '将曲线显示窗口的宽度设为像素的整数倍
 
 ' Pic.Width = intLeftMargin + intRightMargin + intDisplayWidth  '将曲线显示窗口的宽度设为像素的整数倍
End Sub
我这样还是不行啊

PIC.Width和PIC.SCALEWidth都是1065