Select
   End If
   
End Function

Private Sub UserControl_Initialize()
   '
   ' Attach custom IOleInPlaceActiveObject interface
   Dim IPAO As IOleInPlaceActiveObject

   With m_IPAOHookStruct
      Set IPAO = Me
      CopyMemory .IPAOReal, IPAO, 4
      CopyMemory .TBEx, Me, 4
      .lpVTable = IPAOVTable
      .ThisPointer = VarPtr(m_IPAOHookStruct)
   End With
   
   Dim sF As New StdFont
   sF.Name = "Tahoma"
   sF.Size = 8.25
   Set m_fnt = sF
   m_bAllowChangeFileName = True
   
   '
End Sub

Privat