Private Sub PicScale(picX As PictureBox)调用的时候出现问题

Question

Private Sub Form_Load()
PicScale Pic '调整图像框的坐标系
PicMidleLine Pic '在图像框中画一条中线
End Sub
Pic是PictureBox控件的名称属性。
请问以上代码有问题么？编译时就提醒“实时错误‘13’，类型不匹配”。

Answer 1

复制以下代码去测试：Private Sub Form_Load()
    Pic.AutoRedraw = True
    
    PicScale Pic '调整图像框的坐标系
    PicMidleLine Pic '在图像框中画一条中线
End SubPrivate Sub PicScale(picX As PictureBox)
    picX.Scale (0, 100)-(100, 0)
End SubPrivate Sub PicMidleLine(picX As PictureBox)
    picX.Line (0, 50)-(100, 50)
End Sub