objShape = oSlide.Shapes.AddOLEObject(Left:=100, Top:=100, _
                  Width:=100, _
                  Height:=200, ClassName:="Forms.CommandButton.1")
                Dim o As Object = objShape.OLEFormat.Object
                Dim button4 As Forms.CommandButton = CType(CType(o,  _
             PowerPoint.OLEObject).Object, Forms.CommandButton)
                AddHandler button4.Click, AddressOf Button4_Click