Private Sub CommandButton1_Click()dim aa as shapesset aa =Shapes.AddShape(1, 35, 30, 30, 25) With aa .Top = 200 .Left = 300 .Visible = msoFalse End WithEnd Sub
