Caption         =   """Quotes"" ' everywhere""" '""quoted"" comment""

(?<Indent> *)(?<Name>\w+) *= *(?<Value>"(?:""|[^"])*")(?<Comment> '.+)

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3015
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   4560
   BeginProperty Font
      Name            =   "Times New Roman"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   Picture         =   "VB6Form2.frx":0000

    public void Dispose(){
        Dispose(true);
        GC.SuppressFinalize(this);
    }

    protected virtual void Dispose(bool disposing){
        if (disposing){
            if (resource!= null) resource.Dispose();
        }
    }

Option Explicit
'@Folder("Macros")

Public Sub AddSalesRep()
    With New SalesRepPresenter
        .Present New OrderSheetProxy, New SalesRepsSheetProxy
    End With
End Sub

Public Sub AddCustomerAccount()
    With New AccountsPresenter
        .Present New OrderSheetProxy, New SalesRepsSheetProxy, New AccountsSheetProxy
    End With
End Sub

Public Sub AddCustomerLocation()
    With New LocationsPresenter
        .Present New OrderSheetProxy, New SalesRepsSheetProxy, New AccountsSheetProxy, New LocationsSheetProxy

Public Sub Present(ByVal orders As IOrderSheet, ByVal reps As ISalesRepsSheet)

    Set this.View = New AddSalesRepForm
    Set this.Model = New SalesRepModel
    Model.Initialize orders, reps

    If Model.OrderSheet.HasValidSalesRep Then
        If MsgBox("A valid AE/SalesRep is currently selected. This will overwrite it. Proceed?", vbYesNo + vbExclamation) = vbNo Then Exit Sub
    End If

    If View.ShowDialog(Model) Then
        Model.SalesRepsSheet.AddSalesRep Model
        Model.OrderSheet.HeaderSalesRepCode(reps) = Model.Code

Option Explicit
'@Folder("Data.Concrete")
Implements ISalesRepsSheet

Private Property Get ISalesRepsSheet_SalesRepsTable() As ListObject
    Set ISalesRepsSheet_SalesRepsTable = SalesRepsSheet.ListObjects(1)
End Property

Private Property Get ISalesRepsSheet_SalesRepCodes() As Variant
    ISalesRepsSheet_SalesRepCodes = Application.Transpose(ISalesRepsSheet_SalesRepsTable.ListColumns("Code").DataBodyRange.value)
End Property

Private Sub ISalesRepsSheet_AddSalesRep(ByVal m As SalesRepModel)
    With ISalesRepsSheet_SalesRepsTable.ListRows.Add

 'pray to greatbig spaghetti moster in the sky

Public Sub ShowMainMenu()
    Set mm = New MainMenu
    FormatAndPosition mm
    mm.Show vbModal
End Sub

    protected CommandBase(ILogger logger)
    {
        Logger = logger;
    }