Private Sub Command1_Click()Picture1.Print "abcd"End SubPrivate Sub Command2_Click()Picture1.ClsEnd Sub