Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wmfbmp/order.frm

Visual Basic Form | 1995-12-05 | 28.6 KB | 904 lines

VERSION 2.00
Begin Form OrderForm
   BackColor       =   &H00FFFFFF&
   Caption         =   "OsoSoft Order Form"
   ClientHeight    =   5730
   ClientLeft      =   390
   ClientTop       =   1290
   ClientWidth     =   8760
   Height          =   6420
   Left            =   330
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   5730
   ScaleWidth      =   8760
   Top             =   660
   Width           =   8880
   Begin TextBox Text12
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   6960
      TabIndex        =   12
      Top             =   4560
      Width           =   1335
   End
   Begin TextBox Text11
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   5400
      TabIndex        =   11
      Top             =   4560
      Width           =   975
   End
   Begin TextBox Text10
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   960
      TabIndex        =   10
      Top             =   4560
      Width           =   3735
   End
   Begin TextBox Text9
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   960
      TabIndex        =   9
      Top             =   4200
      Width           =   4575
   End
   Begin TextBox Text15
      Height          =   285
      Left            =   6240
      TabIndex        =   60
      Top             =   3960
      Width           =   375
   End
   Begin TextBox Text8
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   960
      TabIndex        =   8
      Top             =   3840
      Width           =   4575
   End
   Begin TextBox Text14
      Height          =   285
      Left            =   6240
      TabIndex        =   59
      Top             =   3600
      Width           =   375
   End
   Begin TextBox Text7
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   960
      TabIndex        =   7
      Top             =   3480
      Width           =   4575
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   960
      TabIndex        =   6
      Top             =   2760
      Width           =   375
   End
   Begin CommandButton Command6
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   24
      TabStop         =   0   'False
      Top             =   2760
      Width           =   735
   End
   Begin TextBox Text2
      Height          =   285
      Left            =   960
      TabIndex        =   5
      Top             =   2400
      Width           =   375
   End
   Begin CommandButton Command5
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   23
      TabStop         =   0   'False
      Top             =   2400
      Width           =   735
   End
   Begin TextBox Text3
      Height          =   285
      Left            =   960
      TabIndex        =   4
      Top             =   2040
      Width           =   375
   End
   Begin CommandButton Command4
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   22
      TabStop         =   0   'False
      Top             =   2040
      Width           =   735
   End
   Begin TextBox Text13
      Height          =   285
      Left            =   960
      TabIndex        =   3
      Top             =   1680
      Width           =   375
   End
   Begin CommandButton Command9
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   53
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton Command8
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   615
      Left            =   7800
      TabIndex        =   50
      Top             =   1320
      Width           =   855
   End
   Begin TextBox Text4
      Height          =   285
      Left            =   960
      TabIndex        =   2
      Top             =   1320
      Width           =   375
   End
   Begin CommandButton Command3
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   21
      TabStop         =   0   'False
      Top             =   1320
      Width           =   735
   End
   Begin TextBox Text5
      Height          =   285
      Left            =   960
      TabIndex        =   1
      Top             =   960
      Width           =   375
   End
   Begin CommandButton Command2
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   960
      Width           =   735
   End
   Begin CommandButton Command7
      Caption         =   "&Print"
      Height          =   615
      Left            =   7800
      TabIndex        =   49
      Top             =   600
      Width           =   855
   End
   Begin TextBox Text6
      Height          =   285
      Left            =   960
      TabIndex        =   0
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command1
      Caption         =   "Info..."
      Height          =   255
      Left            =   120
      TabIndex        =   19
      TabStop         =   0   'False
      Top             =   600
      Width           =   735
   End
   Begin Label Label32
      BackColor       =   &H00C0C0C0&
      Caption         =   "           OsoSoft, 1472 Sixth Street, Los Osos, CA  93402                                 Call The OsoSoft BBS at 805/528-3753!"
      Height          =   375
      Left            =   1200
      TabIndex        =   52
      Top             =   5280
      Width           =   5775
   End
   Begin Label Label31
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Send Registration fees drawn on a U.S. Bank and make payable to:"
      Height          =   225
      Left            =   1200
      TabIndex        =   51
      Top             =   4920
      Width           =   5805
   End
   Begin Label Label30
      BackColor       =   &H00C0C0C0&
      Caption         =   "ZIP:"
      Height          =   255
      Left            =   6480
      TabIndex        =   48
      Top             =   4560
      Width           =   375
   End
   Begin Label Label29
      BackColor       =   &H00C0C0C0&
      Caption         =   "State:"
      Height          =   255
      Left            =   4800
      TabIndex        =   47
      Top             =   4560
      Width           =   495
   End
   Begin Label label28
      BackColor       =   &H00C0C0C0&
      Caption         =   "City:"
      Height          =   255
      Left            =   480
      TabIndex        =   46
      Top             =   4560
      Width           =   375
   End
   Begin Label Label37
      BackColor       =   &H00C0C0C0&
      Caption         =   "5.25"" Disk"
      Height          =   255
      Left            =   6720
      TabIndex        =   58
      Top             =   3960
      Width           =   1215
   End
   Begin Label Label27
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Address:"
      Height          =   255
      Left            =   0
      TabIndex        =   45
      Top             =   3840
      Width           =   855
   End
   Begin Label Label36
      BackColor       =   &H00C0C0C0&
      Caption         =   "3.5"" Disk"
      Height          =   255
      Left            =   6720
      TabIndex        =   57
      Top             =   3600
      Width           =   1215
   End
   Begin Label Label26
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Name:"
      Height          =   255
      Left            =   0
      TabIndex        =   44
      Top             =   3480
      Width           =   855
   End
   Begin Label Label25
      Alignment       =   1  'Right Justify
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   -1  'True
      Height          =   375
      Left            =   6360
      TabIndex        =   43
      Top             =   3120
      Width           =   1215
   End
   Begin Label Label24
      BackColor       =   &H00C0C0C0&
      Caption         =   "Total Enclosed:"
      Height          =   255
      Left            =   4800
      TabIndex        =   42
      Top             =   3120
      Width           =   1455
   End
   Begin Label Label23
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   41
      Top             =   2760
      Width           =   975
   End
   Begin Label Label17
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   35
      Top             =   2760
      Width           =   735
   End
   Begin Label Label8
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "WinClip BMP -- Clip Art Manager"
      Height          =   195
      Left            =   1440
      TabIndex        =   25
      Top             =   2760
      Width           =   2760
   End
   Begin Label Label22
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   40
      Top             =   2400
      Width           =   975
   End
   Begin Label Label16
      Alignment       =   1  'Right Justify
      Caption         =   "$30.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   34
      Top             =   2400
      Width           =   735
   End
   Begin Label Label7
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Rockford! Pro -- Professional Version"
      Height          =   195
      Left            =   1440
      TabIndex        =   18
      Top             =   2400
      Width           =   3165
   End
   Begin Label Label21
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   39
      Top             =   2040
      Width           =   975
   End
   Begin Label Label15
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   33
      Top             =   2040
      Width           =   735
   End
   Begin Label Label6
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Rockford! -- Business Card Designer"
      Height          =   195
      Left            =   1440
      TabIndex        =   17
      Top             =   2040
      Width           =   3105
   End
   Begin Label Label35
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   56
      Top             =   1680
      Width           =   975
   End
   Begin Label Label34
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   55
      Top             =   1680
      Width           =   735
   End
   Begin Label Label33
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "MultiLabel -- Multiple Label Designer"
      Height          =   195
      Left            =   1440
      TabIndex        =   54
      Top             =   1680
      Width           =   3120
   End
   Begin Label Label20
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   38
      Top             =   1320
      Width           =   975
   End
   Begin Label Label14
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   32
      Top             =   1320
      Width           =   735
   End
   Begin Label Label5
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Fonter -- Windows Font Viewer/Printer"
      Height          =   195
      Left            =   1440
      TabIndex        =   16
      Top             =   1320
      Width           =   3270
   End
   Begin Label Label19
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   37
      Top             =   960
      Width           =   975
   End
   Begin Label Label13
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   31
      Top             =   960
      Width           =   735
   End
   Begin Label Label4
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "MicroText -- Document Cruncher"
      Height          =   195
      Left            =   1440
      TabIndex        =   15
      Top             =   960
      Width           =   2775
   End
   Begin Label Label18
      Alignment       =   1  'Right Justify
      Height          =   255
      Left            =   6600
      TabIndex        =   36
      Top             =   600
      Width           =   975
   End
   Begin Label Label12
      Alignment       =   1  'Right Justify
      Caption         =   "$15.00"
      Height          =   255
      Left            =   5520
      TabIndex        =   30
      Top             =   600
      Width           =   735
   End
   Begin Label Label3
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "BurnIn -- System Exerciser"
      Height          =   195
      Left            =   1440
      TabIndex        =   14
      Top             =   600
      Width           =   2250
   End
   Begin Label Label11
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Total"
      Height          =   195
      Left            =   6480
      TabIndex        =   29
      Top             =   360
      Width           =   450
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Price ea."
      Height          =   195
      Left            =   5520
      TabIndex        =   28
      Top             =   360
      Width           =   780
   End
   Begin Label Label10
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Description"
      Height          =   195
      Left            =   1800
      TabIndex        =   27
      Top             =   240
      Width           =   975
   End
   Begin Label Label9
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Quan."
      Height          =   195
      Left            =   960
      TabIndex        =   26
      Top             =   240
      Width           =   525
   End
   Begin Label Label2
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Please send me the following OsoSoft Products"
      Height          =   195
      Left            =   360
      TabIndex        =   13
      Top             =   0
      Width           =   4035
   End
   Begin Menu filemen
      Caption         =   "&File"
      Begin Menu exitmen
         Caption         =   "&Return to Program"
      End
   End
   Begin Menu Helpmen
      Caption         =   "&OsoSoft Program Info"
      Begin Menu burninmen
         Caption         =   "&BurnIn"
      End
      Begin Menu microtextmen
         Caption         =   "&MicroText"
      End
      Begin Menu fontermen
         Caption         =   "&Fonter"
      End
      Begin Menu rockfordmen
         Caption         =   "&Rockford!"
      End
      Begin Menu labelmanmen
         Caption         =   "Multi&Label"
      End
      Begin Menu rockpromen
         Caption         =   "Rockford! &Professional"
      End
      Begin Menu winclipmen
         Caption         =   "&Winclip BMP"
      End
   End
Dim nl$
Sub addemup ()
dummy = DoEvents()
addall = Int(Val(Mid$(label18.Caption, 2)) + Val(Mid$(label19.Caption, 2)) + Val(Mid$(label20.Caption, 2)) + Val(Mid$(label21.Caption, 2)) + Val(Mid$(label22.Caption, 2)) + Val(Mid$(label23.Caption, 2)) + Val(Mid$(label35.Caption, 2)))
final$ = "$" + LTrim$(RTrim$(Str$(addall))) + ".00"
label25.Caption = final$
End Sub
Sub burninmen_click ()
msg$ = "BurnIn 4.5 -- The Complete System Exerciser"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    BurnIn does just one thing: it exercises new computers, looking "
msg$ = msg$ + "for hardware problems. It tests every part of your computer, keeping "
msg$ = msg$ + "records of errors it finds. Use it on every new PC, while the machine "
msg$ = msg$ + "is still under warranty. It could save you hundreds of dollars in repair "
msg$ = msg$ + "costs. NEW! External Program Command; Halt on Error Feature."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + "     BurnIn offers an easy-to-use interface and mouse support. It even "
msg$ = msg$ + "includes Smart Menus, which anticipate your next command. If you use or "
msg$ = msg$ + "build computers, BurnIn is a must! At just $15, it's a real bargain. PC World "
msg$ = msg$ + "said, '...As thorough as [QA Plus ($149.95]...'"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: DOS 3.3 or later."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub command1_click ()
burninmen_click
text6.SetFocus
End Sub
Sub command2_click ()
microtextmen_click
text5.SetFocus
End Sub
Sub Command3_Click ()
fontermen_click
text4.SetFocus
End Sub
Sub Command4_Click ()
rockfordmen_click
text3.SetFocus
End Sub
Sub Command5_Click ()
rockpromen_click
text2.SetFocus
End Sub
Sub Command6_Click ()
winclipmen_click
text1.SetFocus
End Sub
Sub Command7_Click ()
command1.Visible = 0
command2.Visible = 0
command3.Visible = 0
command4.Visible = 0
command5.Visible = 0
command6.Visible = 0
command7.Visible = 0
command8.Visible = 0
command9.Visible = 0
PrintForm
command1.Visible = -1
command2.Visible = -1
command3.Visible = -1
command4.Visible = -1
command5.Visible = -1
command6.Visible = -1
command7.Visible = -1
command8.Visible = -1
command9.Visible = -1
End Sub
Sub Command8_Click ()
orderform.Hide
End Sub
Sub Command9_Click ()
labelmanmen_click
text13.SetFocus
End Sub
Sub Exitmen_Click ()
orderform.Hide
End Sub
Sub fontermen_click ()
msg$ = "Fonter -- Your Windows Font Solution"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    Fonter solves a basic problem in Windows. It shows you all the fonts "
msg$ = msg$ + "you have available. You can view fonts on the screen, or print lists with samples. "
msg$ = msg$ + "Even better, you can print complete character set charts and cut and paste from "
msg$ = msg$ + "Fonter to other applications. Finally, you can create font books, containing all the fonts "
msg$ = msg$ + "you have."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + "    Fonter has three zoom levels so you can see your font enlarged, and offers "
msg$ = msg$ + "printing of selected, individual, or all fonts. You can view samples on screen as well. "
msg$ = msg$ + "Fonter was named as one of the '15 Best Low-Cost Windows Programs' by PC Computing Magazine, "
msg$ = msg$ + "in January, 1992."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: Windows 3.x and a Windows-compatible Printer. Supports ATM and FaceLift."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub Form_Load ()
nl$ = Chr$(13) + Chr$(10)
orderform.Caption = progname$
screen.MousePointer = 0
End Sub
Sub Label18_Click ()
addemup
End Sub
Sub Label19_Change ()
addemup
End Sub
Sub Label19_Click ()
addemup
End Sub
Sub Label20_Change ()
addemup
End Sub
Sub Label20_Click ()
addemup
End Sub
Sub Label21_Change ()
addemup
End Sub
Sub Label21_Click ()
addemup
End Sub
Sub Label22_Change ()
addemup
End Sub
Sub Label22_Click ()
addemup
End Sub
Sub Label23_Change ()
addemup
End Sub
Sub labelmanmen_click ()
msg$ = "MultiLabel 2.0 -- The Multiple Label Engine"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    Need a bunch of labels? MultiLabel's your answer for printing multiple labels."
msg$ = msg$ + "MultiLabel lets you do it yourself. You can do anything, "
msg$ = msg$ + "from using all your Windows fonts, to adding borders, clip art images, and even "
msg$ = msg$ + "lines, boxes, and circles. Once you've designed your label, you can print as many "
msg$ = msg$ + "sheets of labels as you need, using any Avery Laser Label format or a custom format."
msg$ = msg$ + nl$ + "    MultiLabel will amaze you. You can change margins, align "
msg$ = msg$ + "text in different ways, print white letters on a black background, add serial numbers and more. "
msg$ = msg$ + "In less than 10 minutes, you'll have all the labels you need for yourself or for others. "
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: Windows 3.x and an HP LaserJet-compatible printer."
msg$ = msg$ + nl$ + ""
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub microtextmen_click ()
msg$ = "MicroText 4.5 -- The Document Cruncher"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    MicroText helps solve the terrible problem of paper waste. It "
msg$ = msg$ + "prints 4 pages of text on just one sheet of paper, saving your time and our "
msg$ = msg$ + "forests as well. An easy, menu-driven menu, with Smart Menu features, makes the "
msg$ = msg$ + "printing job a breeze. You can configure the program for many styles of printing, "
msg$ = msg$ + "and set margins and line lengths. NEW! Mouse Support."
msg$ = msg$ + nl$ + "    MicroText will print any ASCII file, reducing the file even further by "
msg$ = msg$ + "removing excess blank lines. Printing uses a tiny, but easy to read font. You even"
msg$ = msg$ + "get a graphical print preview mode to check your layout."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: DOS 3.1 or later, Epson or HP Laserjet-compatible printer."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub rockfordmen_click ()
msg$ = "Rockford! 2.5 -- The Business Card Designer"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    Need a business card? Why spend a lot of money having someone "
msg$ = msg$ + "design it. Rockford! lets you do it yourself. You can do anything, "
msg$ = msg$ + "from using all your Windows fonts, to adding borders, clip art images, and even "
msg$ = msg$ + "lines, boxes, and circles. Once you've designed your card, you can print a sheet of "
msg$ = msg$ + "ready-to-cut cards, or one of two camera-ready formats."
msg$ = msg$ + nl$ + "    Rockford! will amaze you. You can change margins, align "
msg$ = msg$ + "text in different ways, print white letters on a black background, and more. "
msg$ = msg$ + "In less than 15 minutes, you'll have business cards for yourself or for others. "
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: Windows 3.x and an HP LaserJet-compatible printer."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "NOTE: This version is for personal use only."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub rockpromen_click ()
msg$ = "Rockford! -- Business Card Designs for Profit"
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "    Unlike Rockford!, described in the previous box, Rockford!  "
msg$ = msg$ + "is designed for small print shops or graphic designers. It has all the features of "
msg$ = msg$ + "Rockford!, but also gives you the chance to put a personalized business message on "
msg$ = msg$ + "each design, plus a customer approval section."
msg$ = msg$ + nl$ + "    If you use Rockford! in a business setting, you must order this version, "
msg$ = msg$ + "which costs just $30. You'll get extra clip art, fonts, plus a printed manual. Checks "
msg$ = msg$ + "for the lower-priced Rockford! will be returned if you're a business."
msg$ = msg$ + nl$ + ""
msg$ = msg$ + nl$ + "Requirements: Windows 3.x and an HP LaserJet-compatible printer."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub
Sub Text1_Change ()
Total = Int(Val(text1.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label23.Caption = sum$
End Sub
Sub Text1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text10_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text11_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text12_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text13_Change ()
Total = Int(Val(text13.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label35.Caption = sum$
End Sub
Sub Text13_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text2_Change ()
Total = Int(Val(text2.Text) * 30)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label22.Caption = sum$
End Sub
Sub Text2_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text3_Change ()
Total = Int(Val(text3.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label21.Caption = sum$
End Sub
Sub Text3_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text4_Change ()
Total = Int(Val(text4.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label20.Caption = sum$
End Sub
Sub Text4_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text5_Change ()
Total = Int(Val(text5.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label19.Caption = sum$
End Sub
Sub Text5_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text6_Change ()
Total = Int(Val(text6.Text) * 15)
sum$ = "$" + LTrim$(RTrim$(Str$(Total))) + ".00"
label18.Caption = sum$
addemup
End Sub
Sub Text6_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text7_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text8_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub Text9_KeyPress (keyascii As Integer)
If keyascii = 13 Then
    keyascii = 0
    SendKeys "{Tab}"
End If
End Sub
Sub winclipmen_click ()
msg$ = "WinClip BMP -- The Clip Art Cataloger"
msg$ = msg$ + nl$
msg$ = msg$ + nl$ + "    If you use Windows .BMP files for clip art images, this program is for you. WinClip BMP"
msg$ = msg$ + " can display or print all your .BMP files. Just click on a filename, and you'll see the image"
msg$ = msg$ + " in a box. Then you can select other images or add any file to a list of selected files."
msg$ = msg$ + nl$ + "    Once you've selected files, you can print catalog sheets of just a few files or a disk"
msg$ = msg$ + " full of images. on the printout, you'll see the filename, plus the image itself. You can print"
msg$ = msg$ + " up to 30 images on a sheet."
msg$ = msg$ + nl$
msg$ = msg$ + nl$ + "Requirements: Windows 3.x and an HP LaserJet compatible printer."
MsgBox msg$, 64, "OsoSoft Shareware Programs"
End Sub