肯定会
经试验 不会发生改变Private Sub Command1_Click()Picture1.Scale (-5, 5)-(5, -5)Picture1.ClsPicture1.Circle (0, 0), 2, , 2End SubPrivate Sub Command2_Click()Picture1.Scale (5, -5)-(-5, 5)Picture1.ClsPicture1.Circle (0, 0), 2, , 2End Sub