在窗体里画图，提示方法和成员未找到 Addline是选黑的！！！

 Sub htu()
'把属性信息赋值给宗地图窗体

宗地图.图号.Caption = Sheet1.Range("b4")
宗地图.编号.Caption = Sheet1.Range("b3")
宗地图.权利.Caption = Sheet1.Range("b7")
宗地图.绘图.Caption = Sheet1.Range("b5")
宗地图.审图.Caption = Sheet1.Range("b6")
宗地图.比例尺.Caption = Sheet1.Range("b9")
宗地图.绘员.Caption = Sheet1.Range("d7")
宗地图.审员.Caption = Sheet1.Range("b8")
宗地图.绘图区.AddLine(78, 59, 231, 190).Select
宗地图.Show
End Sub

--------------------编程问答-------------------- 宗地图.绘图区

这都是什么东西？ --------------------编程问答-------------------- 这种提问方式，肯定解决不了问题 --------------------编程问答-------------------- 不知从什么地方弄的程序,明显就不是自己写的.

断点和F8,慢慢看,出错的附近

补充：VB ,  基础类