Here is a simple example to bring up a PageSettings dialog for a
property that returns PageSettings

   Public Class PageSettingsEditor
       Inherits System.Drawing.Design.UITypeEditor

       Public Overrides Function EditValue(ByVal context As
System.ComponentModel.ITypeDescriptorContext, ByVal provider As
System.IServiceProvider, ByVal value As Object) As Object
           Dim dialog As New System.Windows.Forms.PageSetupDialog()

           ' If PageSettings is null, calling ShowDialog will throw an
exception.
           If value Is Nothing Then
               dialog.PageSettings = New
System.Drawing.Printing.PageSettings()
           Else
               dialog.PageSettings = CType(value,
System.Drawing.Printing.PageSettings)
           End If

           ' If they clicked OK, return the new value
           If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
               Return dialog.PageSettings
           End If

           ' They did not click OK so don't change the value
           Return value
       End Function

       Public Overrides Function GetEditStyle(ByVal context As
System.ComponentModel.ITypeDescriptorContext) As
System.Drawing.Design.UITypeEditorEditStyle
           Return Drawing.Design.UITypeEditorEditStyle.Modal
       End Function
   End Class

On the property use the EditorAttribute class:

Public Class MyClass
       <Category("Print Setup")> _
       <Description("The collection of page settings.")> _
       <EditorBrowsable(EditorBrowsableState.Always)> _
       <EditorAttribute(GetType(PageSettingsEditor),
GetType(Drawing.Design.UITypeEditor))> _
       Public Property PageSettings() As PageSettings
           Get
               Return _pageSettings
           End Get
           Set(ByVal value As PageSettings)
               _pageSettings = value
           End Set
       End Property End Class

Bryan Phillips
MCSD, MCDBA, MCSE
Blog:  http://bphillips76.spaces.live.com