VERSION 5.00
Begin VB.Form frmGiftOrderForm 
   Caption         =   "Gift Order Form"
   ClientHeight    =   6648
   ClientLeft      =   2592
   ClientTop       =   180
   ClientWidth     =   7644
   LinkTopic       =   "Form1"
   ScaleHeight     =   6648
   ScaleWidth      =   7644
   Begin VB.Frame fraRegularMail 
      Caption         =   "Regular Mail"
      Height          =   612
      Left            =   3120
      TabIndex        =   32
      Top             =   6600
      Width           =   2892
      Begin VB.OptionButton optBookRate 
         Caption         =   "Book Rate"
         Height          =   252
         Left            =   1680
         TabIndex        =   34
         Top             =   240
         Width           =   1092
      End
      Begin VB.OptionButton optFirstClass 
         Caption         =   "First Class"
         Height          =   252
         Left            =   240
         TabIndex        =   33
         Top             =   240
         Width           =   1212
      End
   End
   Begin VB.Frame fraBigBrownTruck 
      Caption         =   "Big Brown Truck"
      Height          =   612
      Left            =   240
      TabIndex        =   29
      Top             =   6600
      Width           =   2532
      Begin VB.OptionButton opt2Day 
         Caption         =   "2-Day"
         Height          =   252
         Left            =   1440
         TabIndex        =   31
         Top             =   240
         Width           =   732
      End
      Begin VB.OptionButton optGround 
         Caption         =   "Ground"
         Height          =   252
         Left            =   240
         TabIndex        =   30
         Top             =   240
         Width           =   852
      End
   End
   Begin VB.TextBox txtPhone 
      Height          =   288
      Left            =   2040
      TabIndex        =   27
      Top             =   5520
      Width           =   1212
   End
   Begin VB.TextBox txtZip 
      Height          =   288
      Left            =   6000
      TabIndex        =   25
      Top             =   5160
      Width           =   1092
   End
   Begin VB.ComboBox txtState 
      Height          =   288
      Left            =   4440
      TabIndex        =   23
      Top             =   5160
      Width           =   732
   End
   Begin VB.TextBox txtCity 
      Height          =   288
      Left            =   1920
      TabIndex        =   21
      Top             =   5160
      Width           =   1692
   End
   Begin VB.TextBox txtAddress 
      Height          =   288
      Left            =   2640
      TabIndex        =   19
      Top             =   4800
      Width           =   4452
   End
   Begin VB.TextBox txtLastName 
      Height          =   288
      Left            =   5160
      TabIndex        =   17
      Top             =   4440
      Width           =   1932
   End
   Begin VB.TextBox txtFirstName 
      Height          =   288
      Left            =   2400
      TabIndex        =   15
      Top             =   4440
      Width           =   1332
   End
   Begin VB.TextBox txtGiftMessage 
      Height          =   288
      Left            =   1680
      TabIndex        =   12
      Top             =   3720
      Width           =   5412
   End
   Begin VB.CheckBox chkGiftMessage 
      Caption         =   "Gift Message"
      Height          =   252
      Left            =   240
      TabIndex        =   11
      Top             =   3720
      Width           =   1332
   End
   Begin VB.CheckBox chkGiftWrap 
      Caption         =   "Gift Wrap"
      Height          =   252
      Left            =   240
      TabIndex        =   10
      Top             =   3360
      Width           =   972
   End
   Begin VB.CommandButton cmdSelectABook 
      Caption         =   "Select a Book"
      Height          =   372
      Left            =   360
      TabIndex        =   8
      Top             =   1920
      Width           =   1332
   End
   Begin VB.ListBox lstBooksOrdered 
      Height          =   1008
      Left            =   1920
      TabIndex        =   9
      Top             =   1920
      Width           =   5172
   End
   Begin VB.TextBox txtPhoneSender 
      Height          =   288
      Left            =   2040
      TabIndex        =   6
      Top             =   720
      Width           =   1212
   End
   Begin VB.TextBox txtLastNameSender 
      Height          =   288
      Left            =   5160
      TabIndex        =   4
      Top             =   360
      Width           =   1932
   End
   Begin VB.TextBox txtFirstNameSender 
      Height          =   288
      Left            =   2400
      TabIndex        =   2
      Top             =   360
      Width           =   1332
   End
   Begin VB.Label lblShipMethod 
      Caption         =   "Shipping Method:"
      Height          =   252
      Left            =   240
      TabIndex        =   28
      Top             =   6240
      Width           =   1452
   End
   Begin VB.Line Line4 
      BorderWidth     =   2
      X1              =   120
      X2              =   7560
      Y1              =   6000
      Y2              =   6000
   End
   Begin VB.Label lblPhone 
      Caption         =   "Phone"
      Height          =   252
      Left            =   1440
      TabIndex        =   26
      Top             =   5520
      Width           =   612
   End
   Begin VB.Label lblZip 
      Caption         =   "Zip"
      Height          =   252
      Left            =   5520
      TabIndex        =   24
      Top             =   5160
      Width           =   372
   End
   Begin VB.Label lblState 
      Caption         =   "State"
      Height          =   252
      Left            =   3960
      TabIndex        =   22
      Top             =   5160
      Width           =   492
   End
   Begin VB.Label lblCity 
      Caption         =   "City"
      Height          =   252
      Left            =   1440
      TabIndex        =   20
      Top             =   5160
      Width           =   492
   End
   Begin VB.Label lblAddress 
      Caption         =   "Street Address"
      Height          =   252
      Left            =   1440
      TabIndex        =   18
      Top             =   4800
      Width           =   1332
   End
   Begin VB.Label lblLastName 
      Caption         =   "Last Name"
      Height          =   252
      Left            =   4200
      TabIndex        =   16
      Top             =   4440
      Width           =   972
   End
   Begin VB.Label lblFirstName 
      Caption         =   "First Name"
      Height          =   252
      Left            =   1440
      TabIndex        =   14
      Top             =   4440
      Width           =   972
   End
   Begin VB.Label lblShipTo 
      Caption         =   "Ship To:"
      Height          =   252
      Left            =   240
      TabIndex        =   13
      Top             =   4440
      Width           =   852
   End
   Begin VB.Line Line3 
      BorderWidth     =   2
      X1              =   120
      X2              =   7560
      Y1              =   4200
      Y2              =   4200
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   120
      X2              =   7560
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Label lblBooksOrdered 
      Caption         =   "Books ordered:"
      Height          =   252
      Left            =   360
      TabIndex        =   7
      Top             =   1560
      Width           =   1332
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   120
      X2              =   7560
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Label lblPhoneSender 
      Caption         =   "Phone"
      Height          =   252
      Left            =   1440
      TabIndex        =   5
      Top             =   720
      Width           =   612
   End
   Begin VB.Label lblLastNameSender 
      Caption         =   "Last Name"
      Height          =   252
      Left            =   4200
      TabIndex        =   3
      Top             =   360
      Width           =   972
   End
   Begin VB.Label lblFirstNameSender 
      Caption         =   "First Name"
      Height          =   252
      Left            =   1440
      TabIndex        =   1
      Top             =   360
      Width           =   972
   End
   Begin VB.Label lblSender 
      Caption         =   "Sender:"
      Height          =   252
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   732
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuFileNewOrder 
         Caption         =   "&New Order"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFilePrint 
         Caption         =   "&Print"
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "&About"
      End
   End
End
Attribute VB_Name = "frmGiftOrderForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'   Chapter 14 Gift Order Form Case Study
'   3/99

Option Explicit

Private Sub cmdSelectABook_Click()
    frmDisplayBooks.Show
End Sub

Private Sub mnuFileNewOrder_Click()
    txtFirstNameSender.Text = ""
    txtLastNameSender.Text = ""
    txtPhoneSender.Text = ""
    lstBooksOrdered.Clear
    chkGiftWrap.Value = vbUnchecked
    chkGiftMessage.Value = vbUnchecked
    txtGiftMessage.Text = ""
    txtFirstName.Text = ""
    txtLastName.Text = ""
    txtAddress.Text = ""
    txtCity.Text = ""
    txtState.Text = ""
    txtZip.Text = ""
    txtPhone.Text = ""
    optGround.Value = False
    opt2Day.Value = False
    optFirstClass.Value = False
    optBookRate.Value = False
End Sub

Private Sub mnuFilePrint_Click()
    Me.PrintForm
End Sub

Private Sub mnuFileExit_Click()
    Unload Me
End Sub

Private Sub mnuHelpAbout_Click()
    frmAboutGiftOrderForm.Show
End Sub