Private Sub Command1_Click()’画图Picture1.Line (100, 100)-(200, 200), vbRed, BEnd SubPrivate Sub Command2_Click()‘复制Picture2.Picture = Picture1.ImageEnd SubPrivate Sub Form_Load()Picture1.AutoRedraw = True ‘必须有的End Sub