furnace函数是自己编的如下
'高炉轮廓
Public Sub furnace()
    Dim i As Integer
    Picture2.Scale (-6.5, 1.5)-(6.5, -16.5)
    Picture2.DrawWidth = 1
    Picture2.Line (-3, 0)-(0, 0), RGB(0, 0, 0)
    Picture2.Line (0, 0)-(0, -14.6), RGB(0, 0, 0)
    Picture2.Line (0, -14.6)-(-4.4006, -14.6), RGB(0, 0, 0)
    Picture2.Line (-4.4006, -14.6)-(-3, -2), RGB(0, 0, 0)
    Picture2.Line (-3, -2)-(-3, 0), RGB(0, 0, 0)
   
    Picture2.Line (0, -14.6)-(4.4006, -14.6), RGB(0, 0, 0)
    Picture2.Line (4.4006, -14.6)-(3, -2), RGB(0, 0, 0)
    Picture2.Line (3, -2)-(3, 0), RGB(0, 0, 0)
    Picture2.Line (3, 0)-(0, 0), RGB(0, 0, 0)
   
   
    Picture2.Line (-5.5, 0.5)-(5.5, 0.5)
    Picture2.Line (5.5, 0.5)-(5.5, -16.5)
    Picture2.Line (-5.5, 0.5)-(-5.5, -16.5)
   
    For i = -5 To 5 Step 1
    Picture2.CurrentX = i - 0.2
    Picture2.CurrentY = 0.9
    Picture2.Print i
    Next i
   
   
    For i = 0 To -16 Step -1
    Picture2.CurrentX = 5.5
    Picture2.CurrentY = i
    Picture2.Print i
    Next i
   
    Picture2.Line (-3, -1.44)-(-2.235, -1.25), RGB(0, 0, 0)
    Picture2.Line (-2.235, -1.25)-(-1.55, -1.697), RGB(0, 0, 0)
    Picture2.Line (-1.55, -1.697)-(-0.775, -1.504), RGB(0, 0, 0)
    Picture2.Line (-0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)
   
    Picture2.Line (3, -1.44)-(2.235, -1.25), RGB(0, 0, 0)
    Picture2.Line (2.235, -1.25)-(1.55, -1.697), RGB(0, 0, 0)
    Picture2.Line (1.55, -1.697)-(0.775, -1.504), RGB(0, 0, 0)
    Picture2.Line (0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)
End Sub
想让程序一运行就能把furnace（）中的图形显示在picture2中，我本来想用窗体初始化事件或者加载事件来实现。如：
Private Sub Form_Load()
    Call furnace
End Sub
但好像不行，有老哥知道怎么去实现吗，知道的老哥请指导小弟，在此谢过。

哦，应该furnace是个子过程不是函数

Private Sub Picture2_Paint()
call furnace
end sub
该事件会经常被触发，要尽可能不要用这个办法。

例如，把
Private Sub Form_Load()
    Picture2.AutoRedraw = True   '设为自动重绘
    Call furnace
End Sub

Private Sub Form_Load()
    Show
    Picture2.SetFocus'此条也可以注释掉
    Call furnace
End Sub

[此贴子已经被作者于2018-5-10 23:29编辑过]

谢谢版主，按您说的方法解决了

谢谢