Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / receipt.exe / RECIEPT1.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 34.3 KB | 1,049 lines

VERSION 2.00 Begin Form Form1 AutoRedraw = -1 'True BackColor = &H00FF0000& BorderStyle = 1 'Fixed Single Caption = "INVOICE / PURCHASE ORDER" ClientHeight = 6630 ClientLeft = 885 ClientTop = 2115 ClientWidth = 9600 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 7.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 7320 Left = 825 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 442 ScaleMode = 3 'Pixel ScaleWidth = 640 Top = 1485 Width = 9720 Begin CommandButton Command1 Caption = "Exit" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Index = 2 Left = 5160 TabIndex = 8 Top = 6150 Width = 4125 End Begin CommandButton Command1 Caption = "Clear Info" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Index = 1 Left = 5160 TabIndex = 7 Top = 5610 Width = 4125 End Begin CommandButton Command1 Caption = "Next" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Index = 0 Left = 5160 TabIndex = 4 Top = 5085 Width = 4125 End Begin PictureBox Picture3 AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 1950 Left = 4875 Picture = RECIEPT1.FRX:0000 ScaleHeight = 8.125 ScaleMode = 4 'Character ScaleWidth = 39.125 TabIndex = 1 Top = 2940 Width = 4695 Begin VBedit WPhone BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.2 CharSet = 16404 CombBaseLine = 1.125 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 2370 TabIndex = 32 Text = "( ) -" Top = 1650 Version = 268435458 Width = 1965 End Begin VBedit HPhone BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.2 CharSet = 16404 CombBaseLine = 1.125 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 225 TabIndex = 31 Text = "( ) -" Top = 1650 Version = 268435458 Width = 1965 End Begin VBedit CustZip BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.2 CharSet = 16388 CombBaseLine = 1 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 3600 TabIndex = 30 Top = 1200 Version = 268435458 Width = 840 End Begin VBedit CustState BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 2 CharSet = 16386 CombBaseLine = 1 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 2940 TabIndex = 29 Top = 1185 Version = 268435458 Width = 540 End Begin VHedit CustCity BackColor = &H00C0C0C0& BorderStyle = 2 'Underline CharSet = 16651 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 225 MultiLine = 0 'False TabIndex = 35 Top = 1155 Version = 268435458 Width = 2640 End Begin VHedit CustAddr BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 210 MultiLine = 0 'False TabIndex = 34 Top = 645 Version = 268435458 Width = 4455 End Begin VHedit CustName BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 210 MultiLine = 0 'False TabIndex = 33 Top = 165 Version = 268435458 Width = 4440 End End Begin PictureBox Picture4 AutoRedraw = -1 'True BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 3660 Left = 30 Picture = RECIEPT1.FRX:51BA ScaleHeight = 15.25 ScaleMode = 4 'Character ScaleWidth = 40 TabIndex = 2 Top = 2940 Width = 4800 Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "Installation" Height = 240 Index = 1 Left = 120 TabIndex = 6 Top = 3420 Width = 1245 End Begin VHedit InstInstr BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 1365 MultiLine = 0 'False TabIndex = 28 Top = 3300 Version = 268435458 Width = 3375 End Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "Delivery__" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 5 Top = 2925 Width = 915 End Begin VHedit DelInstr BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 1080 MultiLine = 0 'False TabIndex = 27 Top = 2835 Version = 268435458 Width = 3675 End Begin ComboBox Terms BackColor = &H00C0C0C0& FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 315 Left = 90 TabIndex = 20 Top = 2175 Width = 2835 End Begin ComboBox ShipVia BackColor = &H00C0C0C0& FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 315 Left = 90 TabIndex = 19 Top = 1665 Width = 2835 End Begin VBedit ShipZip BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.2 CharSet = 16388 CombBaseLine = 1 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 3885 TabIndex = 18 Top = 1200 Version = 268435458 Width = 795 End Begin VBedit ShipState BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 2 CharSet = 16386 CombBaseLine = 1 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 3285 TabIndex = 17 Top = 1200 Version = 268435458 Width = 540 End Begin VHedit ShipCity BackColor = &H00C0C0C0& BorderStyle = 2 'Underline CharSet = 16651 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 240 MultiLine = 0 'False TabIndex = 38 Top = 1155 Version = 268435458 Width = 2940 End Begin VHedit ShipAddr BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 225 MultiLine = 0 'False TabIndex = 37 Top = 645 Version = 268435458 Width = 4545 End Begin VHedit ShipName BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 210 MultiLine = 0 'False TabIndex = 36 Top = 165 Version = 268435458 Width = 4545 End End Begin PictureBox Picture2 AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00C0C0C0& BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 990 Left = 30 Picture = RECIEPT1.FRX:EAB4 ScaleHeight = 4.125 ScaleMode = 4 'Character ScaleWidth = 79.5 TabIndex = 0 Top = 1920 Width = 9540 Begin VBedit EstDate BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16396 CombBaseLine = 1.188 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 7560 TabIndex = 26 Text = " / /" Top = 675 Version = 268435458 Width = 1815 End Begin VHedit VenContact BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 4065 MultiLine = 0 'False TabIndex = 25 Top = 675 Version = 268435458 Width = 2700 End Begin VBedit OrderDate BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16396 CombBaseLine = 1.25 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 90 TabIndex = 24 Text = " / /" Top = 660 Version = 268435458 Width = 1815 End Begin VHedit CalledIn BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 7545 MultiLine = 0 'False TabIndex = 23 Top = 165 Version = 268435458 Width = 1800 End Begin VBedit VenNo BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16396 CombBaseLine = 1.188 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 4080 TabIndex = 22 Top = 165 Version = 268435458 Width = 1815 End Begin VHedit VenName BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 105 MultiLine = 0 'False TabIndex = 21 Top = 165 Version = 268435458 Width = 2700 End End Begin PictureBox Picture1 AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00C0C0C0& BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 990 Left = 30 Picture = RECIEPT1.FRX:13DAE ScaleHeight = 4.125 ScaleMode = 4 'Character ScaleWidth = 79.5 TabIndex = 3 Top = 900 Width = 9540 Begin VHedit Dept BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 7545 MultiLine = 0 'False TabIndex = 14 Top = 675 Version = 268435458 Width = 1800 End Begin VBedit StoreDate BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16396 CombBaseLine = 1.25 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 4080 TabIndex = 13 Text = " / /" Top = 660 Version = 268435458 Width = 1815 End Begin VHedit SoldBy BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 105 MultiLine = 0 'False TabIndex = 12 Top = 675 Version = 268435458 Width = 2700 End Begin VBedit OrderNo BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16388 CombBaseLine = 1.125 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 7560 TabIndex = 11 Top = 180 Version = 268435458 Width = 1365 End Begin VHedit StoreLoc BackColor = &H00C0C0C0& BorderStyle = 2 'Underline FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 1.125 InflateLeft = 2.25 InflateRight = 2.25 InflateTop = 1.125 Left = 4065 MultiLine = 0 'False TabIndex = 9 Top = 165 Version = 268435458 Width = 2700 End Begin VBedit StoreNo BackColor = &H00C0C0C0& CellHeight = 2 CellWidth = 1.875 CharSet = 16388 CombBaseLine = 1.125 CombEndHeight = 0.5 CombEndMarker = 0 'False CombHeight = 0.25 FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 InflateBottom = 0.75 InflateLeft = 1.5 InflateRight = 1.5 InflateTop = 1 Left = 120 TabIndex = 10 Top = 180 Version = 268435458 Width = 915 End End Begin PictureBox Picture5 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 840 Left = 30 Picture = RECIEPT1.FRX:190A8 ScaleHeight = 840 ScaleWidth = 9540 TabIndex = 15 Top = 30 Width = 9540 Begin SSPanel Panel3D1 Alignment = 7 'Center - MIDDLE AutoSize = 0 'None BackColor = &H00C0C0C0& BevelInner = 1 'Inset BevelOuter = 2 'Raised BevelWidth = 3 BorderWidth = 3 Caption = "EDNA'S EDIBLE'S" FloodColor = &H00FF0000& FloodShowPct = -1 'True FloodType = 0 'None Font3D = 2 'Raised w/heavy shading FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 720 Left = 180 Outline = 0 'False RoundedCorners = -1 'True ShadowColor = 0 'Dark Grey TabIndex = 16 Top = 60 Width = 9165 End End Begin Menu Menu1 Caption = "File" Begin Menu SubMenu1 Caption = "Retrieve Reciept" Index = 0 End Begin Menu SubMenu1 Caption = "-" Index = 1 End Begin Menu SubMenu1 Caption = "Exit" Index = 2 End End Begin Menu Menu2 Caption = "Help" Begin Menu SubMenu2 Caption = "Index" Index = 0 End Begin Menu SubMenu2 Caption = "-" Index = 1 End Begin Menu SubMenu2 Caption = "Tutorial" Index = 2 End Begin Menu SubMenu2 Caption = "Using Help" Index = 3 End Begin Menu SubMenu2 Caption = "-" Index = 4 End Begin Menu SubMenu2 Caption = "About..." Index = 5 End End Sub CalledIn_LostFocus () CalledIn.Text = LTrim$(CalledIn.Text) End Sub Sub Command1_Click (Index As Integer) Select Case Index Case 0 Form2.Show Case 1 tmp$ = "This will clear all Customer" + Chr$(10) + Chr$(13) tmp$ = tmp$ + "and Vendor data." x = MsgBox(tmp$, 1) If x = 1 Then InitVars Case 2 Unload Form1 End Select End Sub Sub CustAddr_LostFocus () CustAddr.Text = LTrim$(CustAddr.Text) End Sub Sub CustCity_LostFocus () CustCity.Text = LTrim$(CustCity.Text) End Sub Sub CustName_LostFocus () CustName.Text = LTrim$(CustName.Text) End Sub Sub DelInstr_Update () DelInstr.Text = LTrim$(DelInstr.Text) End Sub Sub Dept_LostFocus () Dept.Text = LTrim$(Dept.Text) End Sub Sub EstDate_Change () If CheckDate%(EstDate) Then MsgBox "Invalid Estimated Arrival Date!!!" EstDate.SetFocus End If End Sub Sub Form_Load () ItemInfo(0).Info = "Candy Bar" ItemInfo(0).Price = .95 ItemInfo(0).Unit = "ea." ItemInfo(1).Info = "Cheeseburger" ItemInfo(1).Price = 2.15 ItemInfo(1).Unit = "ea." ItemInfo(2).Info = "Potato Chips" ItemInfo(2).Price = .95 ItemInfo(2).Unit = "ea." ItemInfo(3).Info = "French Fries (small)" ItemInfo(3).Price = .95 ItemInfo(3).Unit = "ea." ItemInfo(4).Info = "French Fries (large)" ItemInfo(4).Price = 1.23 ItemInfo(4).Unit = "ea." ItemInfo(5).Info = "Hamburger" ItemInfo(5).Price = 1.99 ItemInfo(5).Unit = "ea." ItemInfo(6).Info = "Microsoft VisualBasic 1.0" ItemInfo(6).Price = 99.95 ItemInfo(6).Unit = "ea." ItemInfo(7).Info = "Microsoft Windows 3.1" ItemInfo(7).Price = 99.95 ItemInfo(7).Unit = "ea." ItemInfo(8).Info = "Pizza" ItemInfo(8).Price = 1# ItemInfo(8).Unit = "ea." ItemInfo(9).Info = "Soda Pop (small)" ItemInfo(9).Price = .5 ItemInfo(9).Unit = "ea." ItemInfo(10).Info = "Soda Pop (large)" ItemInfo(10).Price = .5 ItemInfo(10).Unit = "ea." ItemInfo(11).Info = "6' Sub sandwich" ItemInfo(11).Price = 2.5 ItemInfo(11).Unit = "ea." OrderNo.Text = "0" ShipVia.AddItem "Air Freight" ShipVia.AddItem "Federal Express" ShipVia.AddItem "Postal Service" ShipVia.AddItem "Surface Mail" ShipVia.AddItem "U.P.S." Terms.AddItem "None" Terms.AddItem "C.O.D." Terms.Text = "None" Form1.Show Form1.WindowState = 2 StoreDate.Text = Format$(Now, "mm/dd/yy") End Sub Sub Form_Unload (Cancel As Integer) x = MsgBox("This will end your Reciept Session.", 1) If x <> 1 Then Cancel = -1 End Sub Sub InstInstr_Update () InstInstr.Text = LTrim$(InstInstr.Text) End Sub Sub OrderDate_LostFocus () If CheckDate%(OrderDate) Then MsgBox "Invalid Ordered Date!!!" OrderDate.SetFocus End If End Sub Sub Picture1_DblClick () Form4.Show 1 End Sub Sub Picture2_DblClick () Form5.Show 1 End Sub Sub Picture3_DblClick () Form6.Show End Sub Sub Picture4_DblClick () Form7.Show End Sub Sub ShipAddr_LostFocus () ShipAddr.Text = LTrim$(ShipAddr.Text) End Sub Sub ShipCity_LostFocus () ShipCity.Text = LTrim$(ShipCity.Text) End Sub Sub ShipName_LostFocus () ShipName.Text = LTrim$(ShipName.Text) End Sub Sub ShipVia_Update () End Sub Sub SoldBy_LostFocus () SoldBy.Text = LTrim$(SoldBy.Text) End Sub Sub StoreDate_LostFocus () If CheckDate%(StoreDate) Then MsgBox "Invalid Date!!!" StoreDate.SetFocus End If End Sub Sub StoreLoc_LostFocus () StoreLoc.Text = LTrim$(StoreLoc.Text) End Sub Sub SubMenu1_Click (Index As Integer) Select Case Index Case 0 MsgBox "Feature Unavailable" Case 2 Unload Form1 End Select End Sub Sub SubMenu2_Click (Index As Integer) Select Case Index Case 0, 1, 2 MsgBox "Help file not available" Case 5 Form9.Show 1 End Select End Sub Sub VenContact_LostFocus () VenContact.Text = LTrim$(VenContact.Text) End Sub Sub VenName_LostFocus () VenName.Text = LTrim$(VenName.Text) End Sub