VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist 
   Caption         =   "Price List Name"
   ClientHeight    =   6240
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   4095
   OleObjectBlob   =   "pricelist.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "pricelist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public proceed As Boolean

Private Sub bCANCEL_Click()
    proceed = False
    Me.Hide
End Sub

Private Sub bOK_Click()
    proceed = True
    Me.Hide
End Sub


Private Sub bPICK_Click()

    '--------Open file-------------
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    fd.Show
    
    tbPATH.Text = fd.SelectedItems(1)


End Sub



Private Sub UserForm_Initialize()
    proceed = False
    
    Dim x() As Variant
    ReDim x(3)
    x(1) = "1 - New"
    x(2) = "2 - Replace"
    x(3) = "3 - Update"
    
    Dim dtl() As Variant
    ReDim dtl(3)
    dtl(1) = "1 - Add"
    dtl(2) = "2 - Update"
    dtl(3) = "3 - Delete"
    
    
    cbHDR.list = x
    cbDTL.list = dtl
    
    
End Sub

Private Sub UserForm_Terminate()
    proceed = False
End Sub