Private Sub Command1_Click()Print "zhonghuarenmingongheguo"Form1.Line (0, 0)-(10000, 8000)Form1.Circle (Me.Width / 2, Me.Height / 2), 1000End SubPrivate Sub Command2_Click()Form1.ClsEnd Sub