Imports Microsoft.Office.Tools.Ribbon
Imports Microsoft.Office.Interop
Imports System.Windows.Forms
Imports Microsoft.Vbe.Interop
 
 
Public Class Ribbon1
 
 
 
    Dim oControl As Forms.CommandButton
    Dim oApp As New PowerPoint.Application
    Dim oPres As PowerPoint.Presentation
    Dim oSlide As PowerPoint.Slide
    Dim oShape As PowerPoint.Shape
 
 
    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As _
      RibbonUIEventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) _
      Handles Button1.Click
 
 
 
        oApp = New PowerPoint.Application()
 
        oApp.Visible = True
        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMaximized
 
        oPres = oApp.ActivePresentation
        oSlide = oApp.ActiveWindow.View.Slide
 
        oControl = CType(oSlide.Shapes.AddOLEObject(20, 20, 10, 0, _
     ClassName:="Forms.CommandButton.1"),  _
            Forms.CommandButton)
           With oControl
            .OLEFormat.Object.Name = "Button2"
            .OLEFormat.Object.Caption = "Test"
            .OLEFormat.Object.Font.Bold = True
            .OLEFormat.Object.Font.Name = "Verdana"
            AddHandler .Click, AddressOf Button2_Click
        End With
 
 
 
    End Sub
 
    Private Sub Button2_Click()
 
 
        MsgBox("hallo")
 
 
    End Sub
 
 
 
End Class