解决方案 »

  1.   

    dim lngColor as Long
    lngColor = RGB(255,0,0)'red
    Picture1.Line (x1, y1)-(x2, y2), lngColor
      

  2.   

    Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3           //用象素所为单位
    Me.DrawWidth = 3           //线粗为3个象素
    Line (0, 0)-(100, 100), RGB(&HFF, 0, 0)  //画一条红色的从(0,0)到(100,100)的线
    End Sub
      

  3.   

    我建立了一个Picture1,怎样改变它的坐标系和比例?