Visual Basic

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const ERR_NO_WINDOW_HANDLE As Long = 1000
Const ERR_WINDOW_LOCK_FAIL As Long = 1001
Const ERR_VERSION_NOT_SUPPORTED As Long = 1002

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long


Sub sOpenPowerpoint()
  Dim pPT As PowerPoint.Application
  Dim pPTopen As PowerPoint.Presentation
  Dim PptName As String
  PptName = "C:\A\Nice.pptx"
  Set pPT = CreateObject("PowerPoint.Application")
  pPT.Visible = True
  Set pPTopen = pPT.Presentations.Open(PptName)
  nHandle = fHandle
  ShowWindow nHandle, SW_HIDE
End Sub

Function fHandle() As Long

  Static hwnd As Long
  Dim VersionNo As String

' Get Version Number

    VersionNo = Left(Application.Version, InStr(1, Application.Version, ".") - 1)

' Get handle to the main application window using ClassName

    Select Case VersionNo
    Case "8"  ' For PPT97:
        hwnd = FindWindow("PP97FrameClass", 0&)
    Case "9"  ' For PPT2K:
        hwnd = FindWindow("PP9FrameClass", 0&)
    Case "10" ' For XP:
        hwnd = FindWindow("PP10FrameClass", 0&)
    Case "11" ' For 2003:
        hwnd = FindWindow("PP11FrameClass", 0&)
    Case "12" ' For 2007:
        hwnd = FindWindow("PP12FrameClass", 0&)
    Case Else
        Err.Raise Number:=vbObjectError + ERR_VERSION_NOT_SUPPORTED, _
        Description:="Supported for PowerPoint 97/2000/2002/2003 only."
        Exit Function
    End Select

    If hwnd = 0 Then
        Err.Raise Number:=vbObjectError + ERR_NO_WINDOW_HANDLE, _
        Description:="Unable to get the PowerPoint Window handle"
        Exit Function
    End If

    If LockWindowUpdate(hwnd) = 0 Then
        Err.Raise Number:=vbObjectError + ERR_WINDOW_LOCK_FAIL, _
        Description:="Unable to set a PowerPoint window lock"
        Exit Function
    End If
  fHandle = hwnd
      
End Function

' --------------------------------------------------------------------------------
' Copyright ©1999-2009, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or 
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------

' --------------------------------------------------------------------------------
' Copyright ©1999-2009, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or 
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------
Sub OpenPPSForEdit()

On Error GoTo ErrHandle
Dim pShow As Presentation
' Lock the window to prevent refreshing
' See above article example for the code
   ScreenUpdating = False
'Open the show, however use additional flag - WithWindow set to FALSE

   Set pShow = Presentations.Open("C:\sample.pps",  _
                        WithWindow:=msoFalse)
'Open a window now to the presentation for editing
   pShow.NewWindow
' Unlock the window to start refreshing again
   ScreenUpdating = True
   Exit Sub

ErrHandle:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " " & Err.Description, _
               vbCritical + vbOKOnly, "Error"
    End If
End Sub

429 ActiveX component cann't create object

UPDATE OP_INFO 
INNER JOIN REQ_INFO ON OP_INFO.OP_INDEX = REQ_INFO.REQ_INDEX 
SET OP_INFO.OPINFO29 = [REQ_INFO].[NAME];

Public Sub UpdateMDI(ByVal MDIForm As IPluginMDIForm) Implements IPlugin.UpdateMainWindow
    If startedAsPlugIn = false then exit sub

    m_mainform = New frmMain
    With m_mainform
        .TopLevel = False
        .FormBorderStyle = FormBorderStyle.None
        .Dock = DockStyle.Left
        MDIForm.TargetControl.Controls.Add(m_mainform)
        MDIForm.TargetControl.Visible = True
        .Visible = True
        AddHandler frmMain.ListSend, AddressOf SendList
    End With
End Sub

Private WithEvents m_mainform As Form = frmMain
Public ReadOnly Property MainForm() As Form Implements IPlugin.MainForm
    Get
        Return m_mainform
    End Get
End Property