Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
Friend WithEvents menuPreview As System.Windows.Forms.MenuItem
Friend WithEvents menuDirectory As System.Windows.Forms.MenuItem
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents menuExit As System.Windows.Forms.MenuItem
Friend WithEvents AxSftPrintPreview1 As AxSftPrintPreviewLib10.AxSftPrintPreview
Friend WithEvents AxSftDirectory1 As AxSftDirectoryLib25.AxSftDirectory
Friend WithEvents label2 As System.Windows.Forms.Label
Friend WithEvents label1 As System.Windows.Forms.Label
Friend WithEvents pictureBox1 As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.AxSftPrintPreview1 = New AxSftPrintPreviewLib10.AxSftPrintPreview
Me.menuPreview = New System.Windows.Forms.MenuItem
Me.menuDirectory = New System.Windows.Forms.MenuItem
Me.mainMenu1 = New System.Windows.Forms.MainMenu
Me.menuExit = New System.Windows.Forms.MenuItem
Me.AxSftDirectory1 = New AxSftDirectoryLib25.AxSftDirectory
Me.label2 = New System.Windows.Forms.Label
Me.label1 = New System.Windows.Forms.Label
Me.pictureBox1 = New System.Windows.Forms.PictureBox
CType(Me.AxSftPrintPreview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxSftDirectory1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'AxSftPrintPreview1
'
Me.AxSftPrintPreview1.Location = New System.Drawing.Point(288, 8)
Me.AxSftPrintPreview1.Name = "AxSftPrintPreview1"
Me.AxSftPrintPreview1.OcxState = CType(resources.GetObject("AxSftPrintPreview1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxSftPrintPreview1.Size = New System.Drawing.Size(264, 240)
Me.AxSftPrintPreview1.TabIndex = 9
'
'menuPreview
'
Me.menuPreview.Index = 2
Me.menuPreview.Text = "&PrintPreview"
'
'menuDirectory
'
Me.menuDirectory.Index = 1
Me.menuDirectory.Text = "View Sft&Directory"
'
'mainMenu1
'
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuExit, Me.menuDirectory, Me.menuPreview})
'
'menuExit
'
Me.menuExit.Index = 0
Me.menuExit.Text = "E&xit"
'
'AxSftDirectory1
'
Me.AxSftDirectory1.Location = New System.Drawing.Point(8, 8)
Me.AxSftDirectory1.Name = "AxSftDirectory1"
Me.AxSftDirectory1.OcxState = CType(resources.GetObject("AxSftDirectory1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxSftDirectory1.Size = New System.Drawing.Size(272, 240)
Me.AxSftDirectory1.TabIndex = 8
'
'label2
'
Me.label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.label2.Location = New System.Drawing.Point(8, 264)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(536, 48)
Me.label2.TabIndex = 12
Me.label2.Text = "This sample requires the SftPrintPreview/OCX 1.0 Product or Demo, so it can be mo" & _
"dified and compiled."
Me.label2.Visible = False
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.label1.Location = New System.Drawing.Point(8, 328)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(296, 48)
Me.label1.TabIndex = 11
Me.label1.Text = "Click on the SftDirectory control above and hit F1 to access help information for" & _
" SftDirectory 2.5"
Me.label1.Visible = False
'
'pictureBox1
'
Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"), System.Drawing.Image)
Me.pictureBox1.Location = New System.Drawing.Point(312, 320)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New System.Drawing.Size(229, 60)
Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.pictureBox1.TabIndex = 10
Me.pictureBox1.TabStop = False
Me.pictureBox1.Visible = False
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(560, 385)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.pictureBox1)
Me.Controls.Add(Me.AxSftDirectory1)
Me.Controls.Add(Me.AxSftPrintPreview1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Menu = Me.mainMenu1
Me.Name = "Form1"
Me.Text = "PrintPreview Sample - Softel vdm, Inc."
CType(Me.AxSftPrintPreview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxSftDirectory1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

    End Sub

#End Region
'--locate-marker--

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Connect the directory control to the print preview control
    AxSftPrintPreview1.ContentProvider = AxSftDirectory1.Window
    ' display directory
    ShowDirectory()
    AxSftPrintPreview1.ZoomFactor = 100
    ' maximize window
    WindowState = FormWindowState.Maximized
End Sub

Private Sub ShowDirectory()
    ' Show the SftDirectory control
    AxSftDirectory1.Visible = True
    AxSftDirectory1.Enabled = True
    AxSftDirectory1.Dock = DockStyle.Fill
    PerformLayout()
    AxSftDirectory1.Focus()
    ' Disable & hide the print preview control
    AxSftPrintPreview1.Visible = False
    AxSftPrintPreview1.Enabled = False
End Sub

Private Sub ShowPreview()
    ' Show the print preview control
    AxSftPrintPreview1.Visible = True
    AxSftPrintPreview1.Enabled = True
    AxSftPrintPreview1.Dock = DockStyle.Fill
    PerformLayout()
    AxSftPrintPreview1.Focus()
    ' Disable & hide the SftDirectory control
    AxSftDirectory1.Visible = False
    AxSftDirectory1.Enabled = False
End Sub

Private Sub AxSftPrintPreview1_PageSetupWanted(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftPrintPreview1.PageSetupWanted
    AxSftPrintPreview1.PageSetup(0)
End Sub

Private Sub AxSftPrintPreview1_HelpWanted(ByVal sender As Object, ByVal e As AxSftPrintPreviewLib10._ISftPrintPreviewEvents_HelpWantedEvent) Handles AxSftPrintPreview1.HelpWanted
    MessageBox.Show("Sorry, this sample doesn't offer a help file")
End Sub

Private Sub AxSftPrintPreview1_CloseWanted(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftPrintPreview1.CloseWanted
    ShowDirectory()
End Sub

Private Sub menuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuExit.Click
    Application.Exit()
End Sub

Private Sub menuDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuDirectory.Click
    ShowDirectory()
End Sub

Private Sub menuPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuPreview.Click
    ShowPreview()
End Sub
End Class