Option Explicit On
Imports System.Linq
Imports System.Collections.Generic
Namespace VBSCAN
   Public Class frmRtnOL : Inherits System.Windows.Forms.Form
      Private Dim _disposed As Boolean = False
      <System.Diagnostics.DebuggerNonUserCode()> _
      Public Sub New()
         MyBase.New()
         'This call is required by the Windows Form Designer.
         InitializeComponent()
         'Add any initialization after the InitializeComponent() call
         If m_vb6FormDefInstance Is Nothing Then
            If m_InitializingDefInstance Then
               m_vb6FormDefInstance = Me
            Else
               Try
                  'For the start-up form, the first instance created is the default instance.
                  If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
                     m_vb6FormDefInstance = Me
                  End If
               Catch
               End Try
            End If
         End If
         If (DesignMode) Then Exit Sub
         Form_Resize(Nothing, Nothing)

      End Sub
      'Form overrides dispose to clean up the component list.
      <System.Diagnostics.DebuggerNonUserCode()> _
      Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
         If _disposed Then
            Return
         End If
         If Disposing Then
            If Not components Is Nothing Then
               components.Dispose()
            End If
         End If
         _disposed = True
         MyBase.Dispose(Disposing)
      End Sub
      Private Sub Form_Resize(ByVal sender As Object, ByVal e As EventArgs)
         On Error Resume Next
         OL1.Width = Me.ClientRectangle.Width - OL1.Left - 10
         OL1.Height = Me.ClientRectangle.Height - OL1.Top - 10
      End Sub
      Private Sub mnuExit_Click(ByVal sender As Object, ByVal e As EventArgs)
         Me.Close()
      End Sub
      Private Sub mnuSave_Click(ByVal sender As Object, ByVal e As EventArgs)
         If (modVBSCAN.SaveRtnOL() <> 0) Then
            System.Windows.Forms.MessageBox.Show("Error saving VBScan formatted Routine", "", MessageBoxButtons.OK)
         End If
      End Sub
   End Class
End Namespace
