Private Sub Command1_Click()
Dim StrFlNm As String
StrFlNm = InputBox("Please input a file name", "INPUT")
SavePicture Picture1.Image, StrFlNm
End Sub
Private Sub Command2_Click()
Picture1.AutoRedraw = True '注意本语句
Picture1.ScaleMode = 3
For j = 1 To 100
For i = 1 To 200
Picture1.PSet (i, 20 + j), RGB(20, j * 2, i)
Next i
Next j