VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} build 
   Caption         =   "Change the Mix"
   ClientHeight    =   1590
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   10725
   OleObjectBlob   =   "build.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "build"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public useval As Boolean

Private Sub cmdCancel_Click()
    useval = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    useval = True
    Me.Hide
End Sub

Public Sub Initialize(part As String, billTo As String, shipTo As String)
    cbPart.list = shSupportingData.ListObjects("ITEM").DataBodyRange.Value
    cbPart.Value = part
    cbBill.list = shSupportingData.ListObjects("CUSTOMER").DataBodyRange.Value
    cbBill.Value = billTo
    cbShip.list = shSupportingData.ListObjects("CUSTOMER").DataBodyRange.Value
    cbShip.Value = shipTo
    
    useval = False
End Sub