diff --git a/pricelist.frm b/pricelist.frm new file mode 100644 index 0000000..904e0f5 --- /dev/null +++ b/pricelist.frm @@ -0,0 +1,48 @@ +VERSION 5.00 +Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist + Caption = "Price List Name" + ClientHeight = 4590 + ClientLeft = 120 + ClientTop = 465 + ClientWidth = 4110 + 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 +End Sub + +Private Sub UserForm_Terminate() + proceed = False +End Sub + + diff --git a/pricelist.frx b/pricelist.frx new file mode 100644 index 0000000..b409b6e Binary files /dev/null and b/pricelist.frx differ