忘了说一点:当运行时,没有任何直线出现。
当将代码放在form_click 中运行时,就会出现了

解决方案 »

  1.   

    可以画,但在form 的重画事件中被删了,写在form的Paint事件中
      

  2.   

    Private Sub Form_Load()
    me.show 
    me.refresh
    Picture1.Line (500, 1500)-(4000, 1500), vbBlue
    Picture1.Line (500, 1500)-(500, 100), vbBlue
    End Sub就有了
      

  3.   

    我在VB6下试过,没有问题。
    是不是你的坐标太偏,以致PICTUREBOX没有显示出来。
    再加上
    picture1.refresh试试。
      

  4.   

    你要想实际画上去就要写道Paint事件中
      

  5.   

    Option ExplicitPrivate Sub Form_load()
        Picture1.AutoRedraw = True
        Picture1.Line (0, 0)-(1000, 1000), vbBlack
    End Sub
      

  6.   

    用LINE方法太快,在显示窗体的同时已经完成了
      

  7.   

    在form_load中不可以
    你还是写在
    picture1_paint事件中