oControl = oSlide.Shapes.AddOLEObject(20, 20, 10, 0, _
              ClassName:="Forms.CommandButton.1")
            	With oControl
                	.OLEFormat.Object.Name = "MeineCheckbox" 'Name
                	.OLEFormat.Object.Caption = "Test" 'Beschriftung
                	.OLEFormat.Object.Font.Bold = True ' Fett
                	.OLEFormat.Object.Font.Name = "Verdana" 'Schrift
                	.OLEFormat.Object.BackColor = RGB(0, 255, 0) 'Hintergrund
                	.OLEFormat.Object.ForeColor = RGB(255, 255, 0) 'Schrift
                	AddHandler ##### , AddressOf MeineCheckbox_Click
            	End With
 
 
 
	Private Sub MeineCheckbox_Click()
 
    	MsgBox("hallo")
	End Sub