VERSION 5.00
Begin VB.Form frmAnyData 
   Caption         =   "AnyData Program"
   ClientHeight    =   3165
   ClientLeft      =   180
   ClientTop       =   750
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtUserArea 
      Height          =   1215
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   3
      Top             =   1800
      Width           =   3975
   End
   Begin VB.ComboBox cboList 
      Height          =   315
      Left            =   2400
      TabIndex        =   2
      Top             =   1080
      Width           =   1935
   End
   Begin VB.ListBox lstList 
      Height          =   450
      Left            =   2400
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
   Begin VB.PictureBox picMyPicture 
      Height          =   1455
      Left            =   120
      ScaleHeight     =   1395
      ScaleWidth      =   1635
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
   End
End
Attribute VB_Name = "frmAnyData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    cboList.AddItem "Clock"
    cboList.AddItem "cup"
    cboList.AddItem "beLL"
    lstList.AddItem "one"
    lstList.AddItem "two"
    lstList.AddItem "three"
End Sub

Private Sub mnuCopy_Click()
    Clipboard.Clear
    If TypeOf Screen.ActiveControl Is TextBox Then
       Clipboard.SetText Screen.ActiveControl.SelText
    ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
       Clipboard.SetText Screen.ActiveControl.Text
    ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
       Clipboard.SetText Screen.ActiveControl.Picture
    ElseIf TypeOf Screen.ActiveControl Is ListBox Then
       Clipboard.SetText Screen.ActiveControl.Text
    Else
'      nothing
    End If
End Sub

Private Sub mnuCut_Click()
    mnuCopy_Click
    
    If TypeOf Screen.ActiveControl Is TextBox Then
       Screen.ActiveControl.SelText = ""
    ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
       Screen.ActiveControl.Text = ""
    ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
       Screen.ActiveControl.Picture = LoadPicture()
    ElseIf TypeOf Screen.ActiveControl Is ListBox Then
       If Screen.ActiveControl.ListIndex >= 0 Then
          Screen.ActiveControl.remoteitem Screen.ActiveControl.ListIndex
       End If
    Else
'      nothing
    End If
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuPaste_Click()
    If TypeOf Screen.ActiveControl Is TextBox Then
       Screen.ActiveControl.SelText = Clipboard.GetText()
    ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
       Screen.ActiveControl.Text = Clipboard.GetText()
    ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
       Screen.ActiveControl.Picture = Clipboard.GetData()
    ElseIf TypeOf Screen.ActiveControl Is ListBox Then
       Screen.ActiveControl.AddItem Clipboard.GetText()
    Else
'      nothing
    End If
End Sub

Private Sub picMyPicture_GotFocus()
    picMyPicture.BorderStyle = 1
End Sub

Private Sub picMyPicture_LostFocus()
    picMyPicture.BorderStyle = 0
End Sub

VERSION 5.00
Begin VB.Form frmButterfly 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Butterfly"
   ClientHeight    =   3600
   ClientLeft      =   3240
   ClientTop       =   870
   ClientWidth     =   4650
   ClipControls    =   0   'False
   DrawMode        =   9  'Not Mask Pen
   Enabled         =   0   'False
   ForeColor       =   &H00C0FFFF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   4650
   Begin VB.CommandButton cmdExit 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      DisabledPicture =   "butterfly.frx":0000
      Enabled         =   0   'False
      Height          =   315
      Left            =   2040
      MaskColor       =   &H00C0FFFF&
      Picture         =   "butterfly.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3240
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.TextBox txtTextbox 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Frankenstein"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   600
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "butterfly.frx":0614
      Top             =   2880
      Width           =   3375
   End
   Begin VB.Timer tmrTimer 
      Interval        =   600
      Left            =   3960
      Top             =   360
   End
End
Attribute VB_Name = "frmButterfly"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim pts, points, revs, equation, pl, eq
Dim radius, z, seconds, pi, f1, f2, f3, f4
Dim maxe, e, r, q, w, max
Dim kolor, delta, yaxis, xaxis, strt, halt, hold, elapsed, dmp
Dim i, a, b, t, x1, y1, d, x, y

Private Sub cmdExit_Click()
'    frmButterfly.PrintForm
'    Printer.EndDoc
    End
End Sub

Private Sub Form_Click()
'    frmButterfly.FontTransparent = True
'    frmButterfly.Print "testting with tranparency=true"
'    frmButterfly.FontTransparent = False
'    frmButterfly.Print "testting with tranparency=false"
End Sub

Private Sub Form_Load()
    pts = 0
    equation = 5
    points = 108
    revs = 8
    pl = 0
    eq = 1
    radius = 8
    seconds = 3
    z = 0
    pi = 3.141594
    f1 = 1
    f2 = 2
    f3 = 3
    f4 = 4

End Sub

Private Sub tmrTimer_Timer()
    max = 50 * revs * radius
    If max < 30000 Then max = 48000
    If max > 60000 Then max = 48000
    kolor = Int(Rnd * 7) + 1
    delta = revs * pi / (max + 1)
    delta = pi / 1000
    If pl = 1 Then
       max = 5000
       delta = 80 * pi / max
       max = 300 * f4 + 3000
    Else
       delta = 24
       max = max / 4
    End If
    
    yaxis = frmButterfly.ScaleWidth / 2
    xaxis = frmButterfly.ScaleHeight / 1.55
    
    a = points - revs + 1
    b = a / revs
    t = delta
    For i = 1 To max - 1
       t = t + delta
       b = a / revs
       If a = 0 Then a = b + 1
       y = 9 * (-a * Cos(t) * (Cos(t) + Sin(t * b))) + yaxis
       x = 9 * (a * (Cos(t + a) + Sin(t * b))) + xaxis
       If i = 1 Then
          x1 = x
          y1 = y
       End If
       If pl = 0 Then
          PSet (x, y), kolor
 ''         Printer.PSet (x, y), kolor
       Else
          Line (x, y)-(x1, y1), kolor
 ''         Printer.Line (x, y)-(x1, y1), kolor
       End If
       x1 = x
       y1 = y
    Next i
 ''   Printer.EndDoc
 ''   End
 End Sub

VERSION 5.00
Begin VB.Form frmButton 
   BackColor       =   &H00C0C0C0&
   Caption         =   "BUtton Program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtResult 
      Alignment       =   2  'Center
      Enabled         =   0   'False
      Height          =   375
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   1320
      Width           =   3735
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Label lblInstruction 
      Alignment       =   2  'Center
      BackColor       =   &H00E0E0E0&
      Caption         =   "Push any of the mouse buttons"
      Height          =   495
      Left            =   480
      TabIndex        =   2
      Top             =   720
      Width           =   3735
   End
   Begin VB.Image imgMouse 
      Height          =   480
      Left            =   2040
      Picture         =   "button.frx":0000
      Top             =   120
      Width           =   480
   End
End
Attribute VB_Name = "frmButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Text1_Change()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    txtResult.Text = "left button"
End If
If Button = 2 Then
    txtResult.Text = "right button"
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtResult.Text = "...."
End Sub
VERSION 5.00
Begin VB.Form frmButton2 
   BackColor       =   &H00E0E0E0&
   Caption         =   "Button 2 program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkRight 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Right"
      Enabled         =   0   'False
      Height          =   495
      Left            =   3360
      TabIndex        =   4
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CheckBox chkMiddle 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Middle"
      Enabled         =   0   'False
      Height          =   495
      Left            =   1920
      TabIndex        =   3
      Top             =   1440
      Width           =   855
   End
   Begin VB.CheckBox chkLeft 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Left"
      Enabled         =   0   'False
      Height          =   495
      Left            =   240
      TabIndex        =   2
      Top             =   1440
      Width           =   975
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Label lblIllustration 
      Alignment       =   2  'Center
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Press anu mouse button and move the mouse"
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   4095
   End
   Begin VB.Image imgMouse 
      Height          =   480
      Left            =   1800
      Picture         =   "button2.frx":0000
      Top             =   0
      Width           =   480
   End
End
Attribute VB_Name = "frmButton2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cmdExit_Click()
End

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And 1) = 1 Then
chkLeft.Value = 1
Else
chkLeft.Value = 0
End If
If (Button And 2) = 2 Then
chkRight.Value = 1
Else
chkRight.Value = 0
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
chkLeft.Value = 0
End If
If Button = 2 Then
chkRight.Value = 0
End If
End Sub
VERSION 5.00
Begin VB.Form frmSpeed 
   BackColor       =   &H00E0E0E0&
   Caption         =   "The Speed Program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtSpeed 
      Alignment       =   2  'Center
      BackColor       =   &H008080FF&
      BeginProperty Font 
         Name            =   "Souvenir Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   2
      Text            =   "ch02.frx":0000
      Top             =   480
      Width           =   3615
   End
   Begin VB.HScrollBar hsbSpeed 
      Height          =   255
      Left            =   240
      Max             =   100
      TabIndex        =   1
      Top             =   1440
      Value           =   50
      Width           =   4095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmSpeed"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
    End
End Sub

Private Sub hsbSpeed_Change()
    txtSpeed.Text = Str(hsbSpeed.Value) + " mph"
End Sub

Private Sub hsbSpeed_Scroll()
    hsbSpeed_Change
End Sub

VERSION 5.00
Begin VB.Form frmMultiply 
   BackColor       =   &H00FFFFC0&
   Caption         =   "The Multiply Profram"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   BeginProperty Font 
      Name            =   "Lucida Sans"
      Size            =   15.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtResult 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Perpetua"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   1560
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   720
      Width           =   1455
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton cmdCalc 
      Caption         =   "&Calculate"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1680
      Width           =   1695
   End
   Begin VB.Label lblResult 
      Caption         =   "Result:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1440
      TabIndex        =   3
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "frmMultiply"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCalc_Click()
    txtResult.Text = Str(multiply(6, 9))
End Sub

Private Sub cmdExit_Click()
    End
End Sub


Public Function multiply(x As Integer, y As Integer)
    Dim z
    z = x * y
    multiply = z
End Function

VERSION 5.00
Begin VB.Form frmCircle 
   Caption         =   "Cirlce"
   ClientHeight    =   3750
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4785
   LinkTopic       =   "Form1"
   ScaleHeight     =   3750
   ScaleWidth      =   4785
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdDrawStyle 
      Caption         =   "&DrawStyle"
      Height          =   495
      Left            =   2040
      TabIndex        =   6
      Top             =   3120
      Width           =   1215
   End
   Begin VB.HScrollBar hsbWidth 
      Height          =   255
      Left            =   1080
      Max             =   10
      Min             =   1
      TabIndex        =   3
      Top             =   480
      Value           =   1
      Width           =   3375
   End
   Begin VB.VScrollBar vsbRadius 
      Height          =   2175
      Left            =   480
      Max             =   100
      Min             =   1
      TabIndex        =   2
      Top             =   840
      Value           =   1
      Width           =   255
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   855
   End
   Begin VB.PictureBox picCircle 
      BackColor       =   &H00FFFFFF&
      Height          =   2175
      Left            =   1080
      ScaleHeight     =   2115
      ScaleWidth      =   3315
      TabIndex        =   0
      Top             =   840
      Width           =   3375
   End
   Begin VB.Label lblWidth 
      Caption         =   "Width"
      Height          =   255
      Left            =   1200
      TabIndex        =   5
      Top             =   120
      Width           =   975
   End
   Begin VB.Label lblRadius 
      Caption         =   "Radius"
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   3120
      Width           =   975
   End
End
Attribute VB_Name = "frmCircle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()

End Sub

Private Sub cmdDrawStyle_Click()
    Dim styl
    
    styl = InputBox$("enter style (0-6): ")
    If Val(styl) < 0 Or Val(styl) > 6 Then
        Beep
        MsgBox ("bad style")
    Else
        picCircle.DrawStyle = Val(styl)
    End If
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub hsbWidth_Change()
    Dim x, y, radius
    picCircle.DrawWidth = hsbWidth.Value
    x = picCircle.ScaleWidth / 2
    y = picCircle.ScaleHeight / 2
    picCircle.Cls
    picCircle.Circle (x, y), vsbRadius.Value * 10, RGB(255, 0, 0)
End Sub

Private Sub hsbWidth_Scroll()
    hsbWidth_Change
End Sub

Private Sub vsbRadius_Change() '
'    Dim x, y, radius
'    x = picCircle.ScaleWidth / 2
'    y = picCircle.ScaleHeight / 2
'    picCircle.Cls
'    picCircle.Circle (x, y), vsbRadius.Value * 10, RGB(255, 0, 0)

    Dim x, y, radius
    Static lastvalue
    Dim r, g, b
    
    r = Rnd * 255
    g = Rnd * 255
    b = Rnd * 255
    x = picCircle.ScaleWidth / 2
    y = picCircle.ScaleHeight / 2
    
    If lastvalue > vsbRadius.Value Then picCircle.Cls
    
    picCircle.Circle (x, y), vsbRadius.Value * 10, RGB(r, g, b)
    lastvalue = vsbRadius.Value
        
End Sub

Private Sub vsbRadius_Scroll()
    vsbRadius_Change
End Sub
VERSION 5.00
Begin VB.Form frmClip 
   Caption         =   "The Clip Program"
   ClientHeight    =   3165
   ClientLeft      =   3015
   ClientTop       =   4470
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin VB.TextBox txtUserArea 
      Height          =   2295
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   4455
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
   End
End
Attribute VB_Name = "frmClip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Resize()
    txtUserArea.Width = frmClip.ScaleWidth
    txtUserArea.Height = frmClip.ScaleHeight
End Sub

Private Sub mnuCopy_Click()
    Clipboard.Clear
    Clipboard.SetText txtUserArea.SelText
    
End Sub

Private Sub mnuCut_Click()
   Clipboard.Clear
   Clipboard.SetText txtUserArea.SelText
   txtUserArea.SelText = ""
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuPaste_Click()
    txtUserArea.SelText = Clipboard.GetText()
End Sub
VERSION 5.00
Begin VB.Form frmColors 
   BackColor       =   &H00FFFFFF&
   Caption         =   "color program"
   ClientHeight    =   3165
   ClientLeft      =   180
   ClientTop       =   750
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuColor 
      Caption         =   "&Color"
      Begin VB.Menu mnuSetColor 
         Caption         =   "&Set Color"
         Begin VB.Menu mnuRed 
            Caption         =   "&Red"
            Checked         =   -1  'True
            Shortcut        =   ^R
         End
         Begin VB.Menu mnuWhite 
            Caption         =   "&White"
            Checked         =   -1  'True
            Shortcut        =   ^W
         End
         Begin VB.Menu mnuBlue 
            Caption         =   "&Blue"
            Checked         =   -1  'True
            Shortcut        =   ^B
         End
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuSize 
      Caption         =   "&Size"
      Begin VB.Menu mnuSmall 
         Caption         =   "&Small"
      End
      Begin VB.Menu mnuLarge 
         Caption         =   "&large"
      End
   End
End
Attribute VB_Name = "frmColors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
    mnuWhite.Enabled = False
    mnuSmall.Enabled = False
    End Sub

Private Sub mnuBlue_Click()
    frmColors.BackColor = QBColor(1)
    mnuRed.Enabled = True
    mnuBlue.Enabled = False
    mnuWhite.Enabled = True
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuLarge_Click()
    frmColors.WindowState = 1
    mnuSmall.Enabled = True
    mnuLarge.Visible = False
End Sub

Private Sub mnuRed_Click()
    frmColors.BackColor = QBColor(4)
    mnuRed.Enabled = False
    mnuBlue.Enabled = True
    mnuWhite.Enabled = True
End Sub

Private Sub mnuSmall_Click()
    frmColors.WindowState = 0
    mnuSmall.Enabled = False
    mnuLarge.Enabled = True
End Sub

Private Sub mnuWhite_Click()
    frmColors.BackColor = QBColor(15)
    mnuRed.Enabled = True
    mnuBlue.Enabled = True
    mnuWhite.Enabled = False
End Sub


VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form frmCommon 
   Caption         =   "The Common Program"
   ClientHeight    =   3165
   ClientLeft      =   4335
   ClientTop       =   4470
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   2040
      Top             =   1320
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   327680
      CancelError     =   -1  'True
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuColor 
         Caption         =   "&Color"
      End
      Begin VB.Menu mnuOpen 
         Caption         =   "&Open"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "&Exit"
      End
   End
End
Attribute VB_Name = "frmCommon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub mnuColor_Click()
    On Error GoTo color_error
    CommonDialog1.Action = 3
    frmCommon.BackColor = CommonDialog1.Color
    Exit Sub
color_error:
    MsgBox "u canceled the dialog box!"
    Exit Sub
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuOpen_Click()
    Dim filter As String
    On Error GoTo open_error
 
'having a problem displaying any file other than folders
'when using the "commondialog1.filter" property
    filter = "All Files (*.*)|*.*|"
    filter = filter + "Batch Files (*.bat)|*.bat|"
    filter = filter + "Text Files (*.txt)|*.txt"
    CommonDialog1.filter = filter
    CommonDialog1.FilterIndex = 2
'    CommonDialog1.FilterIndex = 1
    
    CommonDialog1.Action = 1
    MsgBox "You selected: " + CommonDialog1.filename
    Exit Sub
open_error:
'    MsgBox "u canceled the dialog box!"
    Exit Sub
End Sub
VERSION 5.00
Begin VB.Form frmData 
   Caption         =   "Data Progam"
   ClientHeight    =   3105
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3105
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdDelete 
      Caption         =   "Delete"
      Height          =   495
      Left            =   1920
      TabIndex        =   7
      Top             =   2520
      Width           =   855
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "Add"
      Height          =   495
      Left            =   1080
      TabIndex        =   6
      Top             =   2520
      Width           =   855
   End
   Begin VB.CommandButton cmdSelect 
      Caption         =   "&Select"
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   2520
      Width           =   855
   End
   Begin VB.TextBox txtDescription 
      DataField       =   "description"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1200
      Width           =   4095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3360
      TabIndex        =   2
      Top             =   2520
      Width           =   975
   End
   Begin VB.TextBox txtPartNumber 
      DataField       =   "partnum"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   4095
   End
   Begin VB.Data Data1 
      Connect         =   "Access"
      DatabaseName    =   "J:\vb5\MYPRG\test.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "PARTS"
      Top             =   2040
      Width           =   4140
   End
   Begin VB.Label lblDescription 
      Caption         =   "Description:"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label lblPart 
      Caption         =   "Part Number:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
    Data1.Recordset.AddNew
End Sub

Private Sub cmdDelete_Click()
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdSelect_Click()
    Data1.RecordSource = "Select * from parts where Partnum = 'PC100' "
    Data1.Refresh
End Sub

Private Sub Form_Load()
    Data1.Caption = "Database:TEST Table:PARTS"
End Sub
VERSION 5.00
Begin VB.Form frmDest 
   Caption         =   "The Dest Program"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmdDisplayMessage 
      Caption         =   "&Display Message"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Top             =   600
      Width           =   3375
   End
End
Attribute VB_Name = "frmDest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command2_Click()

End Sub

Private Sub cmdDisplayMessage_Click()
    MsgBox "Display Msg was clicked"
End Sub

Private Sub cmdExit_Click()
    End
End Sub

VERSION 5.00
Begin VB.Form frmDialog 
   BackColor       =   &H00FFFFC0&
   Caption         =   "Dialogs Program"
   ClientHeight    =   3165
   ClientLeft      =   6480
   ClientTop       =   1185
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin VB.Menu mnuDialogs 
      Caption         =   "&Dialogs"
      Begin VB.Menu mnuOKCancel 
         Caption         =   "&OK-Cancel"
      End
      Begin VB.Menu mnuARI 
         Caption         =   "&Abort-Retry-Ignore dialog"
      End
      Begin VB.Menu mnuYNC 
         Caption         =   "&Yes-No_Cancel"
      End
      Begin VB.Menu mnuYesNo 
         Caption         =   "Yes-&No dialog"
      End
      Begin VB.Menu mnuRetryCancel 
         Caption         =   "&Retry-Cancel dialog"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnugetstring 
         Caption         =   "Get as &String"
      End
      Begin VB.Menu mnuGetNumber 
         Caption         =   "Get a &number"
      End
      Begin VB.Menu mnuGetDate 
         Caption         =   "get a &Date"
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuGetMonth 
         Caption         =   "Get a Month"
      End
      Begin VB.Menu nmuSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuARI_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbAbortRetryIgnore + vbExclamation
    dialogtitle = "msgbox demo"
    dialogmsg = "a simple msg!"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    Select Case response
        Case vbAbort
            MsgBox "you clicked ABORT"
        Case vbRetry
            MsgBox "u clicked RETRY"
        Case vbIgnore
            MsgBox "u clicked Ignore"
    End Select
End Sub

Private Sub mnuExit_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbYesNo + vbCritical
    dialogtitle = "dialog prgrams"
    dialogmsg = "r u sure you wanna quit?"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    If response = vbYes Then
        End
    End If
End Sub

Private Sub mnuGetDate_Click()
    Dim userinput, dayofweek, msg
    userinput = InputBox("enter a date:", "Input box demo")
    If userinput = "" Then
        MsgBox "well, type something"
        Exit Sub
    End If
    If Not IsDate(userinput) Then
        MsgBox "invalid date"
        Exit Sub
    End If
    dayofweek = Format(userinput, "dddd")
    msg = "you entered a date: " + userinput
    msg = msg + " day of the week is " + dayofweek
    MsgBox msg
End Sub

Private Sub mnuGetMonth_Click()
    frmGetMonth.Show 1
    If frmGetMonth.Tag = "" Then
        MsgBox "you canceled the dialog box"
    Else
        MsgBox "you selected: " + frmGetMonth.Tag
    End If
End Sub

Private Sub mnuGetNumber_Click()
    Dim userinput, msg
    userinput = InputBox("enter a number:", "Input box demo")
    If userinput = "" Then
        MsgBox "well, type something"
        Exit Sub
    End If
    If Not IsNumeric(userinput) Then
        MsgBox "invalid number"
        Exit Sub
    End If
   
    msg = "you entered a number: " + userinput
    MsgBox msg
End Sub

Private Sub mnugetstring_Click()
    Dim userinput, msg
    userinput = InputBox("enter something:", "demo", "7", 1100, 5200)
    If userinput = "" Then
        MsgBox "well, type something"
        Exit Sub
    End If
    msg = "you entered: " + userinput
    MsgBox msg
End Sub

Private Sub mnuOKCancel_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbOKCancel + vbExclamation
    dialogtitle = "msgbox demo, Becker is a great programmer"
    dialogmsg = "simple message"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    If response = vbOK Then
        MsgBox "you clicked OK"
    Else
        MsgBox " CANCELLED"
    End If
End Sub

Private Sub mnuRetryCancel_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbRetryCancel + vbExclamation
    dialogtitle = "msgbox demo"
    dialogmsg = " retry - cancel"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    If response = vbRetry Then
        MsgBox "retry!"
    Else
        MsgBox " cancell"
    End If
End Sub

Private Sub mnuYesNo_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbYesNo + vbExclamation
    dialogtitle = "msgbox demo"
    dialogmsg = " yes no"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    If response = vbYes Then
        MsgBox " YES "
    Else
        MsgBox " no "
    End If
    
End Sub

Private Sub mnuYNC_Click()
    Dim dialogtype As Integer
    Dim dialogtitle As String
    Dim dialogmsg As String
    Dim response As Integer
    
    dialogtype = vbYesNoCancel + vbExclamation
    dialogtitle = "msgbox demo YNC"
    dialogmsg = " yes no cancel"
    response = MsgBox(dialogmsg, dialogtype, dialogtitle)
    Select Case response
        Case vbYes
            MsgBox "you clicked yes"
        Case vbNo
            MsgBox "u clicked no"
        Case vbCancel
            MsgBox "u clicked cancel"
    End Select
End Sub

VERSION 5.00
Begin VB.Form frmDrag 
   Caption         =   "What a Drag"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   Enabled         =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdDragMe 
      Caption         =   "&Drag Me"
      DragMode        =   1  'Automatic
      Enabled         =   0   'False
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Enabled         =   0   'False
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmDrag"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDragMe_Click()

End Sub

Private Sub cmdExit_Click()
    End
End Sub
VERSION 5.00
Begin VB.Form frmDraw 
   Caption         =   "the draw program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   8565
   ScaleWidth      =   11850
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "OCR A Extended"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "frmDraw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' ch current x and curent y to coor
' where  the mouse botton was just pressed
frmDraw.CurrentX = X
frmDraw.CurrentY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'if left mouse button is currently pressed
' then draw the line
If Button = 1 Then
   Line (frmDraw.CurrentX, frmDraw.CurrentY)-(X, Y), QBColor(0)
End If
End Sub
VERSION 5.00
Begin VB.Form frmDrop 
   Caption         =   "Drop It"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtInfo 
      Alignment       =   2  'Center
      Enabled         =   0   'False
      Height          =   495
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   360
      Width           =   4095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Image imgWater 
      DragMode        =   1  'Automatic
      Height          =   480
      Left            =   1920
      Picture         =   "drop.frx":0000
      Tag             =   "Water Image"
      Top             =   1320
      Width           =   480
   End
End
Attribute VB_Name = "frmDrop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
    End
End Sub

Private Sub form_DragDrop(Source As Control, X As Single, Y As Single)
txtInfo.Text = ""
Source.Move X, Y
End Sub

Private Sub form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Dim sinfo As String
    sinfo = "now dragging"
    sinfo = sinfo + Source.Tag
    sinfo = sinfo + " over the form." + " state = "
    sinfo = sinfo + Str(State)
    txtInfo.Text = sinfo
End Sub

Private Sub cmdexit_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Dim sinfo As String
sinfo = "now dragging"
sinfo = sinfo + Source.Tag
sinfo = sinfo + " over the EXIT button." + " state = "
sinfo = sinfo + Str(State)
txtInfo.Text = sinfo
End Sub

VERSION 5.00
Begin VB.Form frmEYE 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Move Eye Program"
   ClientHeight    =   6240
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   6930
   LinkTopic       =   "Form1"
   ScaleHeight     =   6240
   ScaleWidth      =   6930
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox picEye 
      Height          =   495
      Left            =   5280
      Picture         =   "eye.frx":0000
      ScaleHeight     =   435
      ScaleWidth      =   675
      TabIndex        =   2
      Top             =   4200
      Width           =   735
   End
   Begin VB.CommandButton cmdMove 
      Caption         =   "&Move"
      Height          =   495
      Left            =   5400
      TabIndex        =   1
      Top             =   5520
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   5520
      Width           =   1215
   End
   Begin VB.Image imgEye 
      Height          =   480
      Left            =   4320
      Picture         =   "eye.frx":030A
      Stretch         =   -1  'True
      Top             =   4560
      Width           =   480
   End
End
Attribute VB_Name = "frmEYE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdMove_Click()
    Dim counter As Integer
'    For counter = 1 To 100 Step 1
'       imgEye.Top = imgEye.Top - 20
'        imgEye.Left = imgEye.Left - 20
'    Next counter
    Dim leftedge As Single
    Dim topedge As Single
    Dim i As Integer
    Dim w As Single
    Dim h As Single
    imgEye.Stretch = True
    
    leftedge = imgEye.Left
    topedge = imgEye.Top
    For i = 1 To 100
        leftedge = leftedge - 20
        topedge = topedge - 20
        w = w + 10
        h = h + 10
        imgEye.Move leftedge, topedge, w, h
    Next i
        
    leftedge = picEye.Left
    topedge = picEye.Top
    For i = 1 To 100
        leftedge = leftedge - 15
        topedge = topedge - 15
        picEye.Move leftedge, topedge
    Next i
End Sub
VERSION 5.00
Begin VB.Form frmFocus 
   Caption         =   "Focus"
   ClientHeight    =   3675
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3675
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtUserArea 
      Height          =   2175
      Left            =   1440
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   3
      Top             =   120
      Width           =   3015
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3360
      TabIndex        =   2
      Top             =   3120
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&save"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton cmdLoad 
      Caption         =   "&Load"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label lblInfo 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label2"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   2520
      Width           =   2055
   End
   Begin VB.Label lblTitle 
      Caption         =   "Lost or Got focus?"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   3000
      Width           =   3015
   End
End
Attribute VB_Name = "frmFocus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
    End
End Sub

Private Sub txtUserArea_GotFocus()
    lblInfo.Caption = "txtUserarea got focus"
End Sub

Private Sub txtUserArea_LostFocus()
    lblInfo.Caption = "txtuserarea lost focus"
End Sub
VERSION 5.00
Begin VB.Form frmFonts 
   Caption         =   "The Fonts Program"
   ClientHeight    =   4185
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4725
   LinkTopic       =   "Form1"
   ScaleHeight     =   4185
   ScaleWidth      =   4725
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox cboFontsPrinter 
      Height          =   315
      Left            =   2280
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   480
      Width           =   2415
   End
   Begin VB.ComboBox cboFontsScreen 
      Height          =   315
      Left            =   0
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   480
      Width           =   2175
   End
   Begin VB.CommandButton cmdNumberofFonts 
      Caption         =   "&Number of Fonts"
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   3480
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   3480
      Width           =   1215
   End
   Begin VB.Label lblSampleInfo 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Aa Bb Cc Dd Ee Ff"
      Height          =   1695
      Left            =   120
      TabIndex        =   7
      Top             =   1440
      Width           =   4215
   End
   Begin VB.Label lblSample 
      Caption         =   "Sample:"
      Height          =   255
      Left            =   0
      TabIndex        =   6
      Top             =   1080
      Width           =   1575
   End
   Begin VB.Label lblPrinter 
      Caption         =   "Printer Fonts:"
      Height          =   255
      Left            =   2280
      TabIndex        =   5
      Top             =   120
      Width           =   2415
   End
   Begin VB.Label lblScreen 
      Caption         =   "Screen Fonts:"
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   120
      Width           =   2175
   End
End
Attribute VB_Name = "frmFonts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim gnumofscreenfonts
Dim gnumofprinterfonts
Private Sub Combo1_Change()

End Sub

Private Sub cboFontsScreen_Click()
    lblSampleInfo.FontName = cboFontsScreen.Text
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdNumberofFonts_Click()
    MsgBox "Number of screen fonts: " + Str(gnumofscreenfonts)
    MsgBox "Number of printer fonts: " + Str(gnumofprinterfonts)
End Sub

Private Sub Form_Load()
    Dim i
    gnumofscreenfonts = Screen.FontCount - 1
    gnumofprinterfonts = Printer.FontCount - 1
    
    For i = 1 To gnumofscreenfonts - 1 Step 1
        cboFontsScreen.AddItem Screen.Fonts(i)
    Next
    For i = 1 To gnumofprinterfonts - 1 Step 1
        cboFontsPrinter.AddItem Printer.Fonts(i)
    Next
    cboFontsScreen.ListIndex = 0
    cboFontsPrinter.ListIndex = 0
    
End Sub
VERSION 5.00
Begin VB.Form frmGetFile 
   Caption         =   "Select a file"
   ClientHeight    =   4665
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   4665
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   495
      Left            =   960
      TabIndex        =   11
      Top             =   3840
      Width           =   1215
   End
   Begin VB.TextBox txtFileName 
      Height          =   405
      Left            =   240
      TabIndex        =   5
      Top             =   210
      Width           =   1935
   End
   Begin VB.DirListBox dirDirectory 
      Height          =   2115
      Left            =   2400
      TabIndex        =   4
      Top             =   720
      Width           =   2055
   End
   Begin VB.FileListBox filFiles 
      Height          =   2235
      Left            =   240
      TabIndex        =   3
      Top             =   720
      Width           =   1935
   End
   Begin VB.DriveListBox drvDrive 
      Height          =   315
      Left            =   2400
      TabIndex        =   2
      Top             =   3360
      Width           =   1935
   End
   Begin VB.ComboBox cboFileType 
      Height          =   315
      Left            =   240
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   3360
      Width           =   1935
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&Ok"
      Height          =   495
      Index           =   1
      Left            =   2760
      TabIndex        =   0
      Top             =   3840
      Width           =   1215
   End
   Begin VB.Label lblDirName 
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   2400
      TabIndex        =   10
      Top             =   240
      Width           =   1935
   End
   Begin VB.Label lblDrive 
      Caption         =   "Drive:"
      Height          =   255
      Left            =   2400
      TabIndex        =   9
      Top             =   3120
      Width           =   1335
   End
   Begin VB.Label lblDirectories 
      Caption         =   "Directories:"
      Height          =   255
      Left            =   2400
      TabIndex        =   8
      Top             =   0
      Width           =   1815
   End
   Begin VB.Label lblFileTypes 
      Caption         =   "File Types:"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   3120
      Width           =   1335
   End
   Begin VB.Label lblFileName 
      Caption         =   "File Name:"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   0
      Width           =   1215
   End
End
Attribute VB_Name = "frmGetFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    frmGetFile.Tag = ""
    frmGetFile.Hide
End Sub

Private Sub cmdOK_Click(Index As Integer)

    Dim pathandname As String
    Dim path As String

    If txtFileName.Text = "" Then
        MsgBox "No file is selected", vbExclamation, "Error"
        Exit Sub
    End If
    If Right(filFiles.path, 1) <> "\" Then
        path = filFiles.path + "\"
    Else
        path = filFiles.path
    End If
    If txtFileName.Text = filFiles.filename Then
       pathandname = path + filFiles.filename
    Else
        pathandname = txtFileName.Text
    End If
    frmGetFile.Tag = pathandname
    frmGetFile.Hide
End Sub


Private Sub Form_Load()
    lblDirName.Caption = dirDirectory.path
End Sub

Private Sub drvDrive_Change()
    On Error GoTo drive_error
    
    dirDirectory.path = drvDrive.Drive
    Exit Sub
    
drive_error:
    MsgBox "Drive error!", vbExclamation, " Error"
    drvDrive.Drive = dirDirectory.path
    Exit Sub
End Sub

Private Sub dirDirectory_Change()
    filFiles.path = dirDirectory.path
    lblDirName.Caption = dirDirectory.path
End Sub

Private Sub cboFileType_Click()
    Dim patternpos1 As Integer
    Dim patternpos2 As Integer
    Dim patternlen As Integer
    Dim pattern As String
    
    patternpos1 = InStr(1, cboFileType.Text, "(") + 1
    patternpos2 = InStr(1, cboFileType.Text, ")") - 1
    patternlen = patternpos2 - patternpos1 + 1
    pattern = Mid(cboFileType.Text, patternpos1, patternlen)
    filFiles.pattern = pattern
End Sub

Private Sub filFiles_Click()
    txtFileName.Text = filFiles.filename
End Sub

Private Sub filFiles_DblClick()
    txtFileName.Text = filFiles.filename
    cmdOK_Click (0)
End Sub


VERSION 5.00
Begin VB.Form frmGetMonth 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Select a Month"
   ClientHeight    =   6000
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4650
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   6000
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCancel 
      Caption         =   "&Cancel"
      Height          =   495
      Left            =   2760
      TabIndex        =   5
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&Ok"
      Default         =   -1  'True
      Height          =   495
      Left            =   2760
      TabIndex        =   4
      Top             =   120
      Width           =   1215
   End
   Begin VB.OptionButton optApr 
      Caption         =   "&April"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   1560
      Width           =   1215
   End
   Begin VB.OptionButton optMar 
      Caption         =   "&March"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   1215
   End
   Begin VB.OptionButton optFeb 
      Caption         =   "&February"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.OptionButton optJan 
      Caption         =   "&January"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmGetMonth"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Option3_Click()

End Sub

Private Sub Option5_Click()

End Sub

Private Sub cmdCancel_Click()
    frmGetMonth.Tag = ""
    frmGetMonth.Hide
    
End Sub

Private Sub cmdOK_Click()
    If optJan = True Then frmGetMonth.Tag = "January"
    If optFeb = True Then frmGetMonth.Tag = "February"
    If optMar = True Then frmGetMonth.Tag = "March"
    If optApr = True Then frmGetMonth.Tag = "April"
    frmGetMonth.Hide
End Sub
VERSION 5.00
Begin VB.Form frmGrow 
   BackColor       =   &H00C0FFFF&
   Caption         =   "the grow program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   645
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuGrow 
      Caption         =   "&Grow"
      Begin VB.Menu mnuAdd 
         Caption         =   "&Add"
      End
      Begin VB.Menu mnuRemove 
         Caption         =   "&Remove"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
      Begin VB.Menu mnuItem 
         Caption         =   "-"
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmGrow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim gLastElement As Integer

Private Sub Form_Load()
    gLastElement = 0
    mnuRemove.Enabled = False
    
End Sub

Private Sub mnuAdd_Click()
    gLastElement = gLastElement + 1
    Load mnuItem(gLastElement)
    mnuItem(gLastElement).Caption = "Item " + Str(gLastElement)
    mnuRemove.Enabled = True
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuItem_Click(Index As Integer)
    MsgBox "you selected item " + Str(Index)
End Sub

Private Sub mnuRemove_Click()
    Unload mnuItem(gLastElement)
    gLastElement = gLastElement - 1
    If gLastElement = 0 Then
        mnuRemove.Enabled = False
    End If
End Sub
VERSION 5.00
Begin VB.Form frmHELLO 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Hello"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtDisplay 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   24
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   600
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   360
      Width           =   3615
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "&Clear"
      Height          =   495
      Left            =   2760
      TabIndex        =   2
      Top             =   1320
      Width           =   1455
   End
   Begin VB.CommandButton cmdDispHello 
      Caption         =   "&Display Hello"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      TabIndex        =   1
      Top             =   1320
      Width           =   1335
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmHELLO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClear_Click()
    txtDisplay.Text = ""
End Sub

Private Sub cmdDispHello_Click()
    txtDisplay.Text = "Hello World"
End Sub

Private Sub cmdExit_Click()
    Beep
    End
End Sub

VERSION 5.00
Begin VB.Form frmHowOften 
   Caption         =   "How Often"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   2640
      Width           =   1215
   End
End
Attribute VB_Name = "frmHowOften"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub cmdExit_Click()
    End
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'draw a cicle
    Circle (X, Y), 40
End Sub
VERSION 5.00
Begin VB.Form frmIdle 
   Caption         =   "Idle (aka Count Program)"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   2
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "&Start"
      Height          =   495
      Left            =   3120
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.CommandButton cmdPause 
      Caption         =   "&Pause"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label lblResult 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   495
      Left            =   1680
      TabIndex        =   3
      Top             =   1320
      Width           =   1215
   End
End
Attribute VB_Name = "frmIdle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdPause_Click()
ggflag = 0
End Sub

Private Sub cmdStart_Click()
'Dim i As Integer
'i = 1
'Do While i < 1000
'    lblResult.Caption = Str$(i)
'    lblResult.Refresh
'    i = i + 1
'Loop

ggflag = 1
End Sub

Private Sub Form_Load()
ggflag = 0
End Sub
VERSION 5.00
Begin VB.Form frmIndex 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "The Index Program"
   ClientHeight    =   3540
   ClientLeft      =   3510
   ClientTop       =   4710
   ClientWidth     =   7305
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3540
   ScaleWidth      =   7305
   ShowInTaskbar   =   0   'False
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuDisplayIndex 
         Caption         =   "&displayIndex"
      End
      Begin VB.Menu mnuErasech2 
         Caption         =   "&Erase Chapter 2"
      End
      Begin VB.Menu mnuClrTxt 
         Caption         =   "&Clear Text"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu mnuTable 
      Caption         =   "&Table"
      Begin VB.Menu mnuDisplayTable 
         Caption         =   "&Display Table"
      End
   End
End
Attribute VB_Name = "frmIndex"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
    Dim gdots
Private Sub Form_Load()
    gdots = String$(84, ".")
End Sub

Private Sub mnuClrTxt_Click()
    frmIndex.Cls
End Sub

Private Sub mnuDisplayIndex_Click()
    frmIndex.Cls
    CurrentY = 100
    CurrentX = (frmIndex.ScaleWidth - frmIndex.TextWidth("index")) / 2
    frmIndex.FontUnderline = True
    frmIndex.Print "INDEX"
    
    frmIndex.FontUnderline = False
    CurrentY = frmIndex.TextHeight("VVV") * 2
    CurrentX = 100
    
    Print "chapter 1" + gdots + "the world"
    CurrentY = frmIndex.TextHeight("VVV") * 3
    CurrentX = 100
    Print "chapter 2" + gdots + "The chair"
    CurrentY = frmIndex.TextHeight("VVV") * 4
    CurrentX = 100
    Print "chapter 3" + gdots + "the mouse"
    CurrentY = frmIndex.TextHeight("VVV") * 5
    CurrentX = 100
    Print "chapter 4" + gdots + "the end"
    
End Sub

Private Sub mnuDisplayTable_Click()
    frmIndex.Cls
    frmIndex.FontName = "MS Sans Serif"
    frmIndex.FontSize = 12
'    frmIndex.Print "Chapter", "Description", "Page"
'    frmIndex.Print
'    frmIndex.Print "1", "The worls", "1"
'    frmIndex.Print "2", "The chair", "12"
'    frmIndex.Print "3", "The mouse", "42"
'    frmIndex.Print "4", "The end", "100"
    frmIndex.Print Tab(5); "1"; Tab(20), "the world  "; Tab(50); Format$(1, "   00")
    frmIndex.Print Tab(5); "2"; Tab(20), "the chair  "; Tab(50); Format$(12, "   00")
    frmIndex.Print Tab(5); "3"; Tab(20), "the mouse  "; Tab(50); Format$(42, "   00")
    frmIndex.Print Tab(5); "4"; Tab(20), "the end  "; Tab(50); Format$(100, "   00")
End Sub

Private Sub mnuErasech2_Click()
    Dim lengthofline
    Dim heightofline
    
    CurrentY = frmIndex.TextHeight("VVV") * 3
    CurrentX = 100
    lengthofline = frmIndex.TextWidth("chapter 2" + gdots + "The chair")
    heightofline = frmIndex.TextHeight("T")
    frmIndex.Line -Step(lengthofline, heightofline), RGB(255, 255, 255), BF
End Sub

Private Sub mnuExit_Click()
    End
End Sub
VERSION 5.00
Begin VB.Form frmKeys 
   Caption         =   "Keys Program"
   ClientHeight    =   3165
   ClientLeft      =   3270
   ClientTop       =   4185
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdPushme 
      Caption         =   "&Push Me"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Label lblInfo 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   1575
      Left            =   600
      TabIndex        =   2
      Top             =   360
      Width           =   3375
   End
End
Attribute VB_Name = "frmKeys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command2_Click()

End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdPushme_KeyDown(KeyCode As Integer, Shift As Integer)
lblInfo.Caption = "a key was pressed. keycode=" + Str(KeyCode) + " shift=" + Str(Shift)
End Sub

Private Sub cmdPushme_KeyPress(KeyAscii As Integer)
lblInfo.Caption = "ascci key was pressed=" + Str(KeyAscii)

End Sub

Private Sub cmdPushme_KeyUp(KeyCode As Integer, Shift As Integer)
lblInfo.Caption = "a key was pressed. keycode=" + Str(KeyCode) + " shift=" + Str(Shift)
End Sub

VERSION 5.00
Begin VB.Form frmLine 
   BackColor       =   &H00FFFFC0&
   Caption         =   "The Line "
   ClientHeight    =   3165
   ClientLeft      =   7005
   ClientTop       =   4725
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3120
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "&Start"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Line linLine 
      BorderColor     =   &H000000FF&
      BorderWidth     =   10
      X1              =   2880
      X2              =   4080
      Y1              =   1560
      Y2              =   2040
   End
End
Attribute VB_Name = "frmLine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdStart_Click()
    linLine.X1 = Int(frmLine.Width * Rnd)
    linLine.Y1 = Int(frmLine.Height * Rnd)
    linLine.X2 = Int(frmLine.Width * Rnd)
    linLine.Y2 = Int(frmLine.Height * Rnd)
    
    linLine.BorderColor = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
    linLine.BorderWidth = Int(100 * Rnd) + 1
End Sub
VERSION 5.00
Object = "{9126A2C3-402E-101C-96E6-0020AF38F4BB}#1.0#0"; "TEGOUSA3.OCX"
Object = "{E881B563-E2F4-101B-96E6-0020AF38F4BB}#1.0#0"; "TEGOMM32.OCX"
Begin VB.Form frmMap 
   BackColor       =   &H00E0E0E0&
   Caption         =   "USA Map"
   ClientHeight    =   5955
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7695
   LinkTopic       =   "Form1"
   ScaleHeight     =   5955
   ScaleWidth      =   7695
   StartUpPosition =   3  'Windows Default
   Begin TegommLibCtl.Tegomm Tegomm1 
      Height          =   495
      Left            =   2880
      TabIndex        =   3
      Top             =   120
      Visible         =   0   'False
      Width           =   3510
      _Version        =   65536
      _ExtentX        =   6191
      _ExtentY        =   873
      _StockProps     =   64
   End
   Begin VB.PictureBox picStatusBar 
      Align           =   2  'Align Bottom
      Height          =   615
      Left            =   0
      ScaleHeight     =   555
      ScaleWidth      =   7635
      TabIndex        =   1
      Top             =   5340
      Width           =   7695
      Begin VB.CheckBox chkSound 
         Caption         =   "&Sound"
         Height          =   255
         Left            =   240
         TabIndex        =   4
         Top             =   120
         Width           =   975
      End
      Begin VB.CommandButton cmdExit 
         Caption         =   "E&xit"
         Height          =   615
         Left            =   6600
         TabIndex        =   2
         Top             =   0
         Width           =   1095
      End
      Begin VB.Label lblState 
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2760
         TabIndex        =   5
         Top             =   120
         Width           =   2295
      End
   End
   Begin TegousaLibCtl.TegoUSA TegoUSA1 
      Height          =   6000
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7815
      _Version        =   65536
      _ExtentX        =   13785
      _ExtentY        =   10583
      _StockProps     =   64
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuPrint 
      Caption         =   "&Print"
   End
End
Attribute VB_Name = "frmMap"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub chkSound_Click()
    If chkSound.Value = 0 Then
        Tegomm1.Command = "Stop"
    Else
       If Tegomm1.Position = Tegomm1.Length Then
          Tegomm1.Command = "Prev"
'         Tegomm1.TimeFormat = "milliseconds"
       End If
       Tegomm1.Command = "Play"
    End If
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim dirpath
    Tegomm1.DeviceType = "Sequencer"
    dirpath = App.Path
    If Right(dirpath, 1) <> "\" Then
        dirpath = dirpath + "\"
    End If
    Tegomm1.filename = dirpath + "reggae.MID"
'    Tegomm1.filename = dirpath + "canyon.MID"
'    Tegomm1.filename = "c:\windows\media\canyon.mid"
    Tegomm1.Command = "Open"
    
    If chkSound.Value = 1 Then
       If Tegomm1.Position = Tegomm1.Length Then
          Tegomm1.Command = "Prev"
'         Tegomm1.TimeFormat = "milliseconds"
       End If
       Tegomm1.Command = "Play"
     End If
End Sub

Private Sub Form_Resize()
    TegoUSA1.Width = Me.ScaleWidth
    If Me.ScaleHeight > picStatusBar.Height Then
        TegoUSA1.Height = Me.ScaleHeight - picStatusBar.Height
    End If
    
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuPrint_Click()
    frmMap.PrintForm
End Sub

Private Sub Tegomm1_Done()
    If chkSound.Value = 1 Then
       If Tegomm1.Position = Tegomm1.Length Then
          Tegomm1.Command = "Prev"
'         Tegomm1.TimeFormat = "milliseconds"
       End If
       Tegomm1.Command = "Play"
     End If
End Sub

Private Sub TegoUSA1_MouseMoveOnMap(ByVal StateId As Integer, ByVal x As Integer, ByVal y As Integer, ByVal Button As Integer)
    lblState.Caption = TegoUSA1.GetStateName(StateId)
End Sub
VERSION 5.00
Begin VB.Form frmMoon 
   Caption         =   "Moon Program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   7350
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   7350
   StartUpPosition =   3  'Windows Default
   Begin VB.Image imgMoon 
      Height          =   480
      Index           =   1
      Left            =   1200
      Picture         =   "moon.frx":0000
      Top             =   240
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgMoon 
      Height          =   480
      Index           =   0
      Left            =   480
      Picture         =   "moon.frx":030A
      Top             =   240
      Visible         =   0   'False
      Width           =   480
   End
End
Attribute VB_Name = "frmMoon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub imgMoon_Click()

End Sub
VERSION 5.00
Begin VB.Form frmMove 
   BackColor       =   &H00C0FFFF&
   Caption         =   "The Move Program"
   ClientHeight    =   5355
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   6405
   LinkTopic       =   "Form1"
   ScaleHeight     =   5355
   ScaleWidth      =   6405
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame2 
      Caption         =   "Frame2"
      Height          =   3375
      Left            =   2160
      TabIndex        =   5
      Top             =   1200
      Width           =   1695
      Begin VB.OptionButton Option4 
         Caption         =   "Option4"
         Height          =   375
         Left            =   360
         TabIndex        =   9
         Top             =   2160
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton Option3 
         Caption         =   "Option3"
         Height          =   495
         Left            =   360
         TabIndex        =   8
         Top             =   1320
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Frame1"
      Height          =   3375
      Left            =   4440
      TabIndex        =   4
      Top             =   1200
      Width           =   1695
      Begin VB.OptionButton Option2 
         Caption         =   "Option2"
         Height          =   615
         Left            =   720
         TabIndex        =   7
         Top             =   2040
         Width           =   975
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Option1"
         Height          =   495
         Left            =   600
         TabIndex        =   6
         Top             =   1200
         Value           =   -1  'True
         Width           =   1095
      End
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "PalmSprings"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4680
      TabIndex        =   3
      Top             =   4680
      Width           =   1215
   End
   Begin VB.OptionButton optBell 
      BackColor       =   &H00C0FFFF&
      Caption         =   "&Bell"
      Height          =   495
      Left            =   600
      TabIndex        =   2
      Top             =   2280
      Value           =   -1  'True
      Width           =   1215
   End
   Begin VB.OptionButton optClub 
      BackColor       =   &H00C0FFFF&
      Caption         =   "C&lub"
      Height          =   495
      Left            =   600
      TabIndex        =   1
      Top             =   3000
      Width           =   1215
   End
   Begin VB.OptionButton optCup 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      Caption         =   "&Cup"
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Top             =   3840
      Width           =   1215
   End
   Begin VB.Image imgCup 
      Height          =   480
      Left            =   3480
      Picture         =   "move.frx":0000
      Top             =   240
      Width           =   480
   End
   Begin VB.Image imgBell 
      Height          =   240
      Left            =   2760
      Picture         =   "move.frx":030A
      Top             =   240
      Width           =   240
   End
   Begin VB.Image imgClub 
      Height          =   480
      Left            =   1800
      Picture         =   "move.frx":040C
      Top             =   345
      Width           =   480
   End
End
Attribute VB_Name = "frmMove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
' move the chedcked obj to coord x,y
If optBell.Value = True Then
   imgBell.Move x, y
ElseIf optClub.Value = True Then
   imgClub.Move x, y
Else
   imgCup.Move x, y
End If
End Sub

 
Private Sub cmdExit_Click()
    End
End Sub


VERSION 5.00
Begin VB.Form frmMessage 
   Caption         =   "Message Program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdMessage 
      Caption         =   "&Message"
      Height          =   1095
      Left            =   1080
      TabIndex        =   1
      Top             =   720
      Width           =   2535
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
    Dim response As Integer
    Dim message As String
    Dim buttonandicon As Integer
    Dim title As String
    message = "r u sure u wanna quit?'"
    buttonandicon = vbYesNo + vbQuestion
    title = "the message program"
    response = MsgBox(message, buttonandicon, title)
    If response = vbYes Then
        End
    End If
    End Sub

Private Sub cmdMessage_Click()
    Dim message As String
    Dim buttonandicon As Integer
    Dim title As String
    message = " this is a simple message!"
    buttonandicon = vbOKOnly + vbExclamation
    title = "dialog box demo"
    MsgBox message, buttonandicon, title
    
End Sub
VERSION 5.00
Begin VB.Form myapi 
   Caption         =   "My Api Program"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExitWindows 
      Caption         =   "&Exit Windows"
      Height          =   495
      Left            =   960
      TabIndex        =   3
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton cmdWhere 
      Caption         =   "&Where is Windows"
      Height          =   495
      Left            =   1080
      TabIndex        =   2
      Top             =   1560
      Width           =   2775
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   2760
      TabIndex        =   1
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton cmdBeep 
      Caption         =   "&Beep"
      Height          =   495
      Left            =   1920
      TabIndex        =   0
      Top             =   720
      Width           =   1215
   End
End
Attribute VB_Name = "myapi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdBeep_Click()
    Dim dummy
    
    dummy = MessageBeep(1)
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdExitWindows_Click()
    Dim dummy
    Dim answer
    
    answer = MsgBox("r u sure", vbYesNo)
    If answer = vbYes Then
        dummy = ExitWindowsEx(EWX_SHUTDOWN, 0)
    End If
End Sub

Private Sub cmdWhere_Click()
    Dim result
    Dim windowsdirectory As String
    
    windowsdirectory = Space(144)
    result = GetWindowsDirectory(windowsdirectory, 144)
    If result = 0 Then
        MsgBox "can't get it"
    Else
        windowsdirectory = Trim(windowsdirectory)
        MsgBox "directory: " & windowsdirectory
    End If
End Sub
VERSION 5.00
Begin VB.Form frmMyPic 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "My Pic"
   ClientHeight    =   4350
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7290
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "mypic.frx":0000
   ScaleHeight     =   4350
   ScaleWidth      =   7290
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "frmMyPic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VERSION 5.00
Begin VB.Form frmMySelf 
   Caption         =   "The MySelf Program"
   ClientHeight    =   6315
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   6315
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1560
      TabIndex        =   3
      Top             =   5760
      Width           =   1215
   End
   Begin VB.CommandButton cmdSend 
      Caption         =   "&Send"
      Height          =   495
      Left            =   1560
      TabIndex        =   2
      Top             =   5040
      Width           =   1215
   End
   Begin VB.TextBox txtUserArea 
      Height          =   3855
      Left            =   720
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   840
      Width           =   2775
   End
   Begin VB.CommandButton cmdBeep 
      Caption         =   "&Beep"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmMySelf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdBeep_Click()
    Beep
    MsgBox " beep"
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdSend_Click()
    AppActivate "The MySelf Program"
    SendKeys txtUserArea.Text, True
End Sub

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VERSION 5.00
Begin VB.Form frmPaint 
   Caption         =   "Paint Program"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.OLE OLE3 
      Height          =   1095
      Left            =   840
      TabIndex        =   2
      Top             =   1080
      Width           =   3015
   End
   Begin VB.OLE OLE2 
      Class           =   "Paint.Picture"
      Height          =   1095
      Left            =   840
      OleObjectBlob   =   "paint.frx":0000
      TabIndex        =   1
      Top             =   1080
      Width           =   3015
   End
   Begin VB.OLE OLE1 
      Class           =   "Paint.Picture"
      Height          =   1095
      Left            =   840
      OleObjectBlob   =   "paint.frx":36018
      TabIndex        =   0
      Top             =   1080
      Width           =   3015
   End
End
Attribute VB_Name = "frmPaint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VERSION 5.00
Begin VB.Form frmPhone 
   ClientHeight    =   3270
   ClientLeft      =   3690
   ClientTop       =   4395
   ClientWidth     =   6615
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   6615
   Begin VB.CommandButton cmdDelete 
      Caption         =   "&Delete"
      Height          =   495
      Left            =   5280
      TabIndex        =   11
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton cmdSearch 
      Caption         =   "&Search"
      Height          =   495
      Left            =   5280
      TabIndex        =   10
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   495
      Left            =   5280
      TabIndex        =   6
      Top             =   2640
      Width           =   1215
   End
   Begin VB.CommandButton cmdPrevious 
      Caption         =   "&Previous"
      Height          =   495
      Left            =   5280
      TabIndex        =   5
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "Nex&t"
      Height          =   495
      Left            =   5280
      TabIndex        =   4
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton cmdNew 
      Caption         =   "&New"
      Height          =   495
      Left            =   5280
      TabIndex        =   3
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox txtComments 
      Height          =   1575
      Left            =   120
      MaxLength       =   100
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Top             =   1560
      Width           =   4935
   End
   Begin VB.TextBox txtPhone 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      MaxLength       =   40
      TabIndex        =   1
      Top             =   720
      Width           =   4335
   End
   Begin VB.TextBox txtName 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      MaxLength       =   40
      TabIndex        =   0
      Top             =   120
      Width           =   4335
   End
   Begin VB.Label lblComments 
      Caption         =   "Comments:"
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label lblPhone 
      Caption         =   "Phone:"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   720
      Width           =   735
   End
   Begin VB.Label lblName 
      Caption         =   "Name:"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "frmPhone"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim person As personinfo
Dim filenum As Integer
Dim recordlen As Long
Dim currentrecord As Long
Dim lastrecord As Long

Public Sub savecurrentrecord()
    person.name = txtName.Text
    person.phone = txtPhone.Text
    person.comments = txtComments.Text
    
    Put #filenum, currentrecord, person
End Sub

Public Sub showcurrentrecord()
    Get #filenum, currentrecord, person
    txtName.Text = Trim(person.name)
    txtPhone.Text = Trim(person.phone)
    txtComments.Text = Trim(person.comments)

' disp current recod number in caption
    frmPhone.Caption = "Record " + Str(currentrecord) + "/" + Str(lastrecord)
End Sub

Private Sub cmdDelete_Click()
    Dim dirresult
    Dim tmpfilenum
    Dim tmpperson As personinfo
    Dim recnum As Long
    Dim tmprecnum As Long
    
    If MsgBox("Delete this record?", vbYesNo) = vbNo Then
       txtName.SetFocus
       Exit Sub
    End If

    If Dir("PHONE.TMP") = "PHONE.TMP" Then
        Kill "PHONE.TMP"
    End If
    tmpfilenum = FreeFile
    Open "PHONE.TMP" For Random As tmpfilenum Len = recordlen

    recnum = 1
    tmprecnum = 1
    Do While recnum <> currentrecord + 1
        If recnum <> currentrecord Then
            Get #filenum, recnum, tmpperson
            Put #tmpfilenum, tmprecnum, tmpperson
            tmprecnum = tmprecnum + 1
        End If
        recnum = recnum + 1
    Loop
    Close filenum
    Kill "PHONE.DAT"
    Close tmpfilenum
    Name "PHONE.TMP" As "PHONE.DAT"
    filenum = FreeFile
    Open "PHONE.DAT" For Random As filenum Len = recordlen
    lastrecord = lastrecord - 1
    If lastrecord = 0 Then lastrecord = 1
    If currentrecord > lastrecord Then currentrecord = lastrecord
    showcurrentrecord
    txtName.SetFocus
End Sub

Private Sub cmdExit_Click()
    savecurrentrecord
    Close #filenum
    End
End Sub

Private Sub cmdNew_Click()
    savecurrentrecord
    lastrecord = lastrecord + 1
    person.name = ""
    person.phone = ""
    person.comments = ""
    Put #filenum, lastrecord, person
    currentrecord = lastrecord
    showcurrentrecord
    txtName.SetFocus
End Sub

Private Sub cmdNext_Click()
    If currentrecord = lastrecord Then
        Beep
        MsgBox "end of file!", vbExclamation
    Else
        savecurrentrecord
        currentrecord = currentrecord + 1
        showcurrentrecord
    End If
    txtName.SetFocus
End Sub

Private Sub cmdPrevious_Click()
    If currentrecord = 1 Then
        Beep
        MsgBox "beginning of file!", vbExclamation
    Else
        savecurrentrecord
        currentrecord = currentrecord - 1
        showcurrentrecord
    End If
    txtName.SetFocus
End Sub

Private Sub cmdSearch_Click()
    Dim nametosearch As String
    Dim found As Integer
    Dim recnum As Long
    Dim tmpperson As personinfo
    
    nametosearch = InputBox("Search for:", "search")
    
    If nametosearch = "" Then
        txtName.SetFocus
        Exit Sub
    End If
    nametosearch = UCase(nametosearch)
    found = False
    For recnum = 1 To lastrecord
        Get #filenum, recnum, tmpperson
        If nametosearch = UCase(Trim(tmpperson.name)) Then
            found = True
            Exit For
         End If
    Next
    
    If found = True Then
        savecurrentrecord
        currentrecord = recnum
        showcurrentrecord
    Else
        MsgBox "Name " + nametosearch + " not found!"
    End If
    txtName.SetFocus
End Sub

Private Sub Form_Load()
    recordlen = Len(person)
    filenum = FreeFile
    Open "phone.dat" For Random As filenum Len = recordlen
    currentrecord = 1
    lastrecord = FileLen("phone.dat") / recordlen
    If lastrecord = 0 Then
       lastrecord = 1
    End If
    showcurrentrecord
End Sub

VERSION 5.00
Begin VB.Form frmPicture1 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Picture 1 Child"
   ClientHeight    =   1440
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   1440
   ScaleWidth      =   4680
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Close"
      Height          =   495
      Left            =   2640
      TabIndex        =   0
      Top             =   480
      Width           =   1215
   End
   Begin VB.Image imgClub 
      Height          =   480
      Left            =   600
      Picture         =   "picture1.frx":0000
      Top             =   480
      Width           =   480
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuClose 
         Caption         =   "Close"
      End
   End
   Begin VB.Menu mnuBeep 
      Caption         =   "&Beep"
      Begin VB.Menu mnuBeepOnce 
         Caption         =   "Beep &once"
      End
      Begin VB.Menu mnuBeepTwice 
         Caption         =   "Beep &Twice"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Window"
      WindowList      =   -1  'True
   End
End
Attribute VB_Name = "frmPicture1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    Unload frmPicture1
End Sub

Private Sub mnuBeepOnce_Click()
    Beep
End Sub

Private Sub mnuBeepTwice_Click()
    Beep
    MsgBox "beep again"
    Beep
End Sub

Private Sub mnuClose_Click()
    Unload frmPicture1
End Sub

VERSION 5.00
Begin VB.Form frmPicture2 
   BackColor       =   &H00C0FFC0&
   Caption         =   "Picture 2 Child"
   ClientHeight    =   1530
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   1530
   ScaleWidth      =   4680
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Close"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   840
      Width           =   1215
   End
   Begin VB.Image imgCup 
      Height          =   480
      Left            =   1920
      Picture         =   "picture2.frx":0000
      Top             =   120
      Width           =   480
   End
End
Attribute VB_Name = "frmPicture2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdClose_Click()
    Unload frmPicture2
End Sub
VERSION 5.00
Begin VB.Form frmPicture3 
   BackColor       =   &H00FFFFC0&
   Caption         =   "Picture 3 Child"
   ClientHeight    =   2205
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3675
   LinkTopic       =   "Form3"
   MDIChild        =   -1  'True
   ScaleHeight     =   2205
   ScaleWidth      =   3675
   Begin VB.CommandButton cmdSwitch 
      Caption         =   "&Switch to STD form"
      Height          =   495
      Left            =   480
      TabIndex        =   1
      Top             =   1320
      Width           =   2535
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Close"
      Height          =   495
      Left            =   1560
      TabIndex        =   0
      Top             =   360
      Width           =   1215
   End
   Begin VB.Image imgBell 
      Height          =   480
      Left            =   360
      Picture         =   "picture3.frx":0000
      Top             =   360
      Width           =   480
   End
End
Attribute VB_Name = "frmPicture3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    Unload frmPicture3
End Sub

Private Sub cmdSwitch_Click()
    frmStandard.Show
End Sub
VERSION 5.00
Begin VB.MDIForm frmPictures 
   BackColor       =   &H8000000C&
   Caption         =   "I am the parent window"
   ClientHeight    =   5925
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6270
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuShow 
      Caption         =   "&Show Pictures"
      Begin VB.Menu mnuShowPic1 
         Caption         =   "Show Picture &1"
      End
      Begin VB.Menu mnuShowPic2 
         Caption         =   "Show Picture &2"
      End
      Begin VB.Menu mnuShowPic3 
         Caption         =   "Show Picture &3"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuShowAll 
         Caption         =   "Show &All Pictures"
      End
      Begin VB.Menu muClear 
         Caption         =   "&Clear All Pictures"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin VB.Menu mnuArrange 
         Caption         =   "&Arrange Icons"
      End
      Begin VB.Menu mnuTile 
         Caption         =   "&Tile"
         Shortcut        =   +{F4}
      End
      Begin VB.Menu mnuCascade 
         Caption         =   "&Cascade"
         Shortcut        =   +{F5}
      End
   End
End
Attribute VB_Name = "frmPictures"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
    frmPicture1.Show
    frmPicture2.Show
    frmPicture3.Show
End Sub

Private Sub mnuArrange_Click()
    frmPictures.Arrange vbArrangeIcons
End Sub

Private Sub mnuCascade_Click()
    frmPictures.Arrange vbCascade
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuShowAll_Click()
    frmPicture1.Show
    frmPicture2.Show
    frmPicture3.Show
End Sub

Private Sub mnuShowPic1_Click()
    frmPicture1.Show
End Sub

Private Sub mnuShowPic2_Click()
     frmPicture2.Show
 End Sub

Private Sub mnuShowPic3_Click()
    frmPicture3.Show
End Sub

Private Sub mnuTile_Click()
    frmPictures.Arrange vbTileHorizontal
End Sub

Private Sub muClear_Click()
    Unload frmPicture1
    Unload frmPicture2
    Unload frmPicture3
End Sub
VERSION 5.00
Begin VB.Form frmPoints 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Points Program"
   ClientHeight    =   3165
   ClientLeft      =   3540
   ClientTop       =   5550
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4650
   Begin VB.Timer tmrTimer 
      Interval        =   60
      Left            =   120
      Top             =   2520
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuGraphics 
      Caption         =   "&Graphics"
      Begin VB.Menu mnuDrawLines 
         Caption         =   "Draw&Lines"
      End
      Begin VB.Menu mnuDrawPoints 
         Caption         =   "&Draw Points"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "&Clear"
      End
   End
End
Attribute VB_Name = "frmPoints"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim pts, points, revs, equation, pl, eq
Dim radius, z, seconds, pi, f1, f2, f3, f4
Dim maxe, e, r, q, w, max
Dim kolor, delta, yaxis, xaxis, strt, halt, hold, elapsed, dmp
Dim i, a, b, t, x1, y1, d, x, y

Private Sub Form_Load()
    pts = 0
    equation = 5
    points = 108
    revs = 8
    pl = 0
    eq = 1
    radius = 8
    seconds = 3
    z = 0
    pi = 3.141594
    f1 = 1
    f2 = 2
    f3 = 3
    f4 = 4

    max = 50 * revs * radius
    If max < 30000 Then max = 48000
    If max > 60000 Then max = 48000
    kolor = Int(Rnd * 7) + 1
    delta = revs * pi / (max + 1)
    delta = pi / 1000
    If pl = 1 Then
       max = 5000
       delta = 80 * pi / max
       max = 300 * f4 + 3000
    Else
       delta = 24
       max = max / 4
    End If
    
    yaxis = frmPoints.ScaleWidth / 2
    xaxis = frmPoints.ScaleHeight / 1.38
    
    a = points - revs + 1
    b = a / revs
    t = delta
    For i = 1 To max - 1
       t = t + delta
       b = a / revs
       If a = 0 Then a = b + 1
       y = 9 * (-a * Cos(t) * (Cos(t) + Sin(t * b))) + yaxis
       x = 9 * (a * (Cos(t + a) + Sin(t * b))) + xaxis
       If i = 1 Then
          x1 = x
          y1 = y
       End If
       If pl = 0 Then
          PSet (x, y), kolor
       Else
          Line (x, y)-(x1, y1), kolor
       End If
       x1 = x
       y1 = y
    Next i
    
End Sub

Private Sub mnuClear_Click()
    pts = 0
    frmPoints.Cls
End Sub

Private Sub mnuDrawLines_Click()
    max = 50 * revs * radius
    If max < 30000 Then max = 48000
    If max > 60000 Then max = 48000
    kolor = Int(Rnd * 7) + 1
'    SCREEN 8, 0
'    COLOR kolor, 0
    delta = revs * pi / (max + 1)
    delta = pi / 1000
    If pl = 1 Then
       max = 5000
       delta = 80 * pi / max
       max = 300 * f4 + 3000
    Else
       delta = 24
       max = max / 4
    End If
    
    yaxis = frmPoints.ScaleWidth / 2
    xaxis = frmPoints.ScaleHeight / 1.38
    
    a = points - revs + 1
    b = a / revs
    t = delta
    For i = 1 To max - 1
       t = t + delta
       b = a / revs
       If a = 0 Then a = b + 1
       y = 9 * (-a * Cos(t) * (Cos(t) + Sin(t * b))) + yaxis
       x = 9 * (a * (Cos(t + a) + Sin(t * b))) + xaxis
       If i = 1 Then
          x1 = x
          y1 = y
       End If
       If pl = 0 Then
          PSet (x, y), kolor
       Else
          Line (x, y)-(x1, y1), kolor
       End If
       x1 = x
       y1 = y
    Next i

End Sub

Private Sub mnuDrawPoints_Click()
    pts = 1
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub tmrTimer_Timer()
    Dim r, b, g, x, y, cnt
    
    If pts = 1 Then
        For cnt = 1 To 100
            r = Rnd * 255
            g = Rnd * 255
            b = Rnd * 255
            x = Rnd * frmPoints.ScaleWidth
            y = Rnd * frmPoints.ScaleHeight
            frmPoints.PSet (x, y), RGB(r, b, g)
        Next cnt
    End If
End Sub





VERSION 5.00
Begin VB.Form frmPrint 
   BackColor       =   &H00C0FFC0&
   Caption         =   "Print Program"
   ClientHeight    =   3165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   6435
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   6435
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdPrint 
      Caption         =   "&Print"
      Height          =   495
      Left            =   4800
      TabIndex        =   1
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    End
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdPrint_Click()
'    Printer.Print "testing 1 2 3 .. the printer"
    frmPrint.PrintForm
    Printer.EndDoc
End Sub
VERSION 5.00
Begin VB.Form frmSelect 
   BackColor       =   &H8000000B&
   Caption         =   "Select a file"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuSelectFile 
         Caption         =   "&Select a file"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Load frmGetFile
    
    frmGetFile.cboFileType.AddItem "All Files (*.*)"
    frmGetFile.cboFileType.AddItem "Text Files (*.txt)"
    frmGetFile.cboFileType.AddItem "Doc Files (*.doc)"
    frmGetFile.cboFileType.ListIndex = 0       'i.e. all files
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuSelectFile_Click()
    frmGetFile.Caption = "Select a file"
    frmGetFile.Show 1
    If frmGetFile.Tag = "" Then
        MsgBox "No file was selected!"
    Else
        MsgBox "You selected " + frmGetFile.Tag
    End If
End Sub
VERSION 5.00
Begin VB.Form frmShape 
   Caption         =   "Shape Program"
   ClientHeight    =   6435
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   6990
   LinkTopic       =   "Form1"
   ScaleHeight     =   6435
   ScaleWidth      =   6990
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox picMyPic 
      AutoSize        =   -1  'True
      Height          =   4380
      Left            =   4800
      Picture         =   "shape.frx":0000
      ScaleHeight     =   4320
      ScaleWidth      =   4320
      TabIndex        =   9
      Top             =   1440
      Width           =   4380
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3240
      TabIndex        =   7
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton cmdRndSqr 
      Caption         =   "Rounded S&quare"
      Height          =   495
      Left            =   3240
      TabIndex        =   6
      Top             =   3000
      Width           =   1215
   End
   Begin VB.CommandButton cmdRectangle 
      Caption         =   "&Rectangle"
      Height          =   495
      Left            =   3240
      TabIndex        =   5
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdSquare 
      Caption         =   "&Square"
      Height          =   495
      Left            =   3240
      TabIndex        =   4
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton cmdOval 
      Caption         =   "&Oval"
      Height          =   495
      Left            =   3240
      TabIndex        =   3
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton cmdCirlce 
      Caption         =   "&Circle"
      Height          =   495
      Left            =   3240
      TabIndex        =   2
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton cmdRndRect 
      Caption         =   "Rounded Rectan&gle"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.HScrollBar hsbWidth 
      Height          =   255
      Left            =   120
      Max             =   10
      Min             =   1
      TabIndex        =   0
      Top             =   120
      Value           =   1
      Width           =   4335
   End
   Begin VB.Image imgMyImage 
      Height          =   3615
      Left            =   240
      Stretch         =   -1  'True
      Top             =   1320
      Width           =   3015
   End
   Begin VB.Shape shpShape2 
      FillColor       =   &H000000FF&
      FillStyle       =   4  'Upward Diagonal
      Height          =   495
      Left            =   840
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpAllShapes 
      Height          =   495
      Left            =   840
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label lblInfo 
      Caption         =   "Change Width:"
      Height          =   495
      Left            =   480
      TabIndex        =   8
      Top             =   600
      Width           =   1935
   End
End
Attribute VB_Name = "frmShape"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCirlce_Click()
    frmShape.Picture = LoadPicture("d:\vb5\myprg\my.bmp")
    shpAllShapes.Shape = 3
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdOval_Click()
    shpAllShapes.Shape = 2
End Sub

Private Sub cmdRectangle_Click()
    shpAllShapes.Shape = 0
End Sub

Private Sub cmdRndRect_Click()
    shpAllShapes.Shape = 4
End Sub

Private Sub cmdRndSqr_Click()
    shpAllShapes.Shape = 5
End Sub

Private Sub cmdSquare_Click()
    imgMyImage.Picture = LoadPicture("d:\vb5\myprg\my.bmp")
    shpAllShapes.Shape = 1
End Sub

Private Sub hsbWidth_Change()
    shpAllShapes.BorderWidth = hsbWidth.Value
End Sub

Private Sub hsbWidth_Scroll()
    shpAllShapes.BorderWidth = hsbWidth.Value
End Sub
VERSION 5.00
Begin VB.Form frmShowFont 
   Caption         =   "Show Font Program"
   ClientHeight    =   3450
   ClientLeft      =   180
   ClientTop       =   750
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3450
   ScaleWidth      =   4650
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkUnderline 
      Caption         =   "&Underline"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2880
      TabIndex        =   5
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CheckBox chkStrike 
      Caption         =   "&Strike"
      BeginProperty Font 
         Name            =   "Stencil"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   -1  'True
      EndProperty
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CheckBox chkItalic 
      Caption         =   "&Italic"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2880
      TabIndex        =   3
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CheckBox chkBold 
      Caption         =   "&Bold"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   360
      TabIndex        =   2
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Top             =   2880
      Width           =   975
   End
   Begin VB.TextBox txtTest 
      Height          =   1335
      Left            =   360
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   360
      Width           =   3855
   End
   Begin VB.Menu mnuFonts 
      Caption         =   "&Fonts"
      Begin VB.Menu mnuCourier 
         Caption         =   "Courier"
      End
      Begin VB.Menu mnuSanserif 
         Caption         =   "MS Sans Serif"
      End
   End
   Begin VB.Menu mnuSize 
      Caption         =   "&Size"
      Begin VB.Menu mnu10points 
         Caption         =   "1&0 Points"
      End
      Begin VB.Menu mnu12points 
         Caption         =   "1&2 points"
      End
   End
End
Attribute VB_Name = "frmShowFont"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub chkBold_Click()
    txtTest.FontBold = chkBold.Value
End Sub

Private Sub chkItalic_Click()
    txtTest.FontItalic = chkItalic.Value
End Sub

Private Sub chkStrike_Click()
    txtTest.FontStrikethru = chkStrike.Value
End Sub

Private Sub chkUnderline_Click()
    txtTest.FontUnderline = chkUnderline.Value
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub mnu10points_Click()
    txtTest.FontSize = 10
End Sub

Private Sub mnu12points_Click()
   txtTest.FontSize = 12
End Sub

Private Sub mnuCourier_Click()
    txtTest.FontName = "courier"
End Sub

Private Sub mnuSanserif_Click()
    txtTest.FontName = "MS Sans Serif"
End Sub
VERSION 5.00
Begin VB.Form frmSelect 
   BackColor       =   &H8000000B&
   Caption         =   "Select a file"
   ClientHeight    =   5340
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   5340
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuSelectFile 
         Caption         =   "&Select File"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
    Load frmGetFile
    
    frmGetFile.cboFileType.AddItem "All Files (*.*)"
    frmGetFile.cboFileType.AddItem "Text Files (*.txt)"
    frmGetFile.cboFileType.AddItem "Doc Files (*.doc)"
'    cboFileType.AddItem "WP  Files (*.wp*)"
'    cboFileType.AddItem "BST Files (*.bst)"
'    cboFileType.AddItem "BAT Files (*.bat)"
    frmGetFile.cboFileType.ListIndex = 0       'i.e. all files
'    lblDirName.Caption = dirDirectory.path
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuSelectFile_Click()
    frmGetFile.Caption = "Select a file"
    frmGetFile.Show 1
    If frmGetFile.Tag = "" Then
        MsgBox "No file was selected!"
    Else
        MsgBox "You selected " + frmGetFile.Tag
    End If
End Sub
VERSION 5.00
Begin VB.Form frmSource 
   Caption         =   "The Source Program - the generatrix"
   ClientHeight    =   3225
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6285
   LinkTopic       =   "Form1"
   ScaleHeight     =   3225
   ScaleWidth      =   6285
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   4920
      TabIndex        =   2
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CommandButton cmdSend 
      Caption         =   "&Send"
      Height          =   495
      Left            =   4920
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.TextBox txtUserArea 
      Height          =   3255
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   4695
   End
End
Attribute VB_Name = "frmSource"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdSend_Click()
    AppActivate "Butterfly"
    AppActivate "The Dest Program"
    SendKeys txtUserArea.Text, True
End Sub

Private Sub Form_Load()
    Dim id1
    Dim id2
    id1 = Shell("BUTTERFLY.exe", 1)
    id2 = Shell("DEST.exe", 1)
End Sub
VERSION 5.00
Begin VB.Form frmStandard 
   BackColor       =   &H00C0E0FF&
   Caption         =   "I'm a standard form"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdSwitch 
      Caption         =   "&Switch to MDI Form"
      Height          =   495
      Left            =   720
      TabIndex        =   1
      Top             =   1320
      Width           =   3135
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   2280
      Width           =   1215
   End
End
Attribute VB_Name = "frmStandard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdSwitch_Click()
    frmPictures.Show
End Sub
VERSION 5.00
Begin VB.Form frmTab 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Tab Program"
   ClientHeight    =   4050
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4440
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4050
   ScaleWidth      =   4440
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Left            =   240
      Max             =   50
      TabIndex        =   15
      Top             =   3480
      Width           =   3975
   End
   Begin VB.CheckBox Check4 
      Caption         =   "Check4"
      Height          =   495
      Left            =   2880
      TabIndex        =   14
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Check3"
      Height          =   495
      Left            =   2880
      TabIndex        =   13
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Check2"
      Height          =   495
      Left            =   2880
      TabIndex        =   12
      Top             =   720
      Width           =   1215
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      Height          =   495
      Left            =   2880
      TabIndex        =   11
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   3000
      TabIndex        =   10
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Command10"
      Height          =   495
      Left            =   1440
      TabIndex        =   9
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Command9"
      Height          =   495
      Left            =   1440
      TabIndex        =   8
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Command8"
      Height          =   495
      Left            =   1440
      TabIndex        =   7
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Command7"
      Height          =   495
      Left            =   1440
      TabIndex        =   6
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Command6"
      Height          =   495
      Left            =   1440
      TabIndex        =   5
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Command5"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Command4"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmTab"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command11_Click()

End Sub

Private Sub cmdExit_Click()
    End
End Sub
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmTable 
   Caption         =   "Table"
   ClientHeight    =   4500
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   7275
   LinkTopic       =   "Form1"
   ScaleHeight     =   4500
   ScaleWidth      =   7275
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdAlign 
      Caption         =   "&Align"
      Height          =   495
      Left            =   4080
      TabIndex        =   3
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "&Clear"
      Height          =   495
      Left            =   2880
      TabIndex        =   2
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   3840
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid grdTable 
      Height          =   3495
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   6165
      _Version        =   327680
      Rows            =   13
      Cols            =   5
      GridLines       =   2
   End
End
Attribute VB_Name = "frmTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MSFlexGrid1_Click()
    
End Sub

Private Sub cmdAlign_Click()
    Dim colcntr
    For colcntr = 1 To (grdTable.Cols - 2)
        grdTable.ColAlignment(colcntr) = 4
    Next
End Sub

Private Sub cmdClear_Click()
    Dim i, j
    For i = 1 To 4
        For j = 1 To 12
            grdTable.Col = i
            grdTable.Row = j
            grdTable.Text = ""
        Next
    Next
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub Form_Load()
    grdTable.Row = 0
    grdTable.Col = 1
    grdTable.Text = "electricity"
    grdTable.Col = 2
    grdTable.Text = "water"
    grdTable.Col = 3
    grdTable.Text = "transportation"
    grdTable.Col = 4
    grdTable.Text = "food"
    
    grdTable.Col = 0
    grdTable.Row = 1
    grdTable.Text = "jan"
    grdTable.Row = 2
    grdTable.Text = "feb"
    grdTable.Row = 3
    grdTable.Text = "mar"
    grdTable.Row = 4
    grdTable.Text = "apr"
    grdTable.Row = 5
    grdTable.Text = "may"
    grdTable.Row = 6
    grdTable.Text = "jun"
    grdTable.Row = 7
    grdTable.Text = "jul"
    grdTable.Row = 8
    grdTable.Text = "aug"
    grdTable.Row = 9
    grdTable.Text = "sep"
    grdTable.Row = 10
    grdTable.Text = "oct"
    grdTable.Row = 11
    grdTable.Text = "nov"
    grdTable.Row = 12
    grdTable.Text = "dec"

    Set_col_row
End Sub

Public Sub Set_col_row()
    Dim counter
    For counter = 1 To 4
        grdTable.ColWidth(counter) = 1300
    Next
    grdTable.ColWidth(0) = 600
    grdTable.RowHeight(0) = 600
End Sub
VERSION 5.00
Begin VB.Form frmTemplate 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Untiltled"
   ClientHeight    =   3135
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6915
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3135
   ScaleWidth      =   6915
   Begin VB.TextBox txtUserArea 
      Height          =   3135
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   6975
   End
End
Attribute VB_Name = "frmTemplate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
    Me.txtUserArea.Height = Me.ScaleHeight
    Me.txtUserArea.Width = Me.ScaleWidth
End Sub
VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0E0FF&
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   ForeColor       =   &H8000000A&
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
VERSION 5.00
Begin VB.MDIForm frmTextEd 
   BackColor       =   &H8000000C&
   Caption         =   "My Text Editor"
   ClientHeight    =   4800
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7080
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture2 
      Align           =   2  'Align Bottom
      Height          =   480
      Left            =   0
      ScaleHeight     =   420
      ScaleWidth      =   7020
      TabIndex        =   1
      Top             =   4320
      Width           =   7080
      Begin VB.HScrollBar HScroll1 
         Height          =   255
         Left            =   2520
         TabIndex        =   4
         Top             =   120
         Width           =   2175
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   315
         Left            =   5520
         TabIndex        =   3
         Top             =   120
         Width           =   1095
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   600
         Picture         =   "TextEd.frx":0000
         Top             =   0
         Width           =   480
      End
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      ScaleHeight     =   555
      ScaleWidth      =   7020
      TabIndex        =   0
      Top             =   0
      Width           =   7080
      Begin VB.CommandButton cmdExit 
         Caption         =   "E&xit"
         Height          =   375
         Left            =   4920
         TabIndex        =   2
         Top             =   120
         Width           =   975
      End
      Begin VB.Image imgSave 
         Height          =   480
         Left            =   720
         Picture         =   "TextEd.frx":030A
         Stretch         =   -1  'True
         Top             =   0
         Width           =   465
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuNew 
         Caption         =   "&New"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuAssignName 
      Caption         =   "&Assign Name"
   End
End
Attribute VB_Name = "frmTextEd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
    End
End Sub

Private Sub imgSave_Click()
    Beep
End Sub

Private Sub mnuAssignName_Click()
    Dim documentname As String
    documentname = InputBox("Document Name: ", "Assign Name")
    frmTextEd.ActiveForm.Caption = documentname
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuNew_Click()
    Dim frmNewForm As New frmTemplate
    frmNewForm.Show
End Sub

VERSION 5.00
Begin VB.Form frmTimer 
   Caption         =   "The Timer Program"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdEnable 
      Caption         =   "&Enable"
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Timer tmrTimer 
      Interval        =   1000
      Left            =   360
      Top             =   360
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "frmTimer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdEnable_Click()
    If tmrTimer.Enabled = True Then
       tmrTimer.Enabled = False
       cmdEnable.Caption = "&Enable"
    Else
       tmrTimer.Enabled = True
       cmdEnable.Caption = "&Disable"
    End If
            
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub tmrTimer_Timer()
'    If tmrTimer.Enabled = True Then
       Beep
'    End If
End Sub

VERSION 5.00
Begin VB.Form frmUpper 
   Caption         =   "The Upper Program"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox txtUserArea 
      Height          =   2055
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   120
      Width           =   4335
   End
End
Attribute VB_Name = "frmUpper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
    End
End Sub


Private Sub txtUserArea_KeyPress(KeyAscii As Integer)
    Dim char
    
    char = Chr(KeyAscii)
    KeyAscii = Asc(UCase(char))
'   If KeyAscii = vbKeyReturn Then
'       KeyAscii = 0
'   End If
End Sub
