VERSION 5.00
Begin VB.Form TabWriter 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Tab Writer 5.0"
   ClientHeight    =   8370
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   10590
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8370
   ScaleWidth      =   10590
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Height          =   3255
      Left            =   1320
      MultiLine       =   -1  'True
      TabIndex        =   43
      Top             =   1080
      Width           =   5055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   2640
      TabIndex        =   42
      Top             =   4440
      Width           =   1335
   End
   Begin VB.CommandButton reset 
      Caption         =   "Reset"
      Height          =   255
      Left            =   4800
      TabIndex        =   41
      Top             =   4920
      Width           =   1335
   End
   Begin VB.Frame EnterNumber 
      Caption         =   "Enter Fret #"
      Height          =   1335
      Left            =   6720
      TabIndex        =   38
      Top             =   3600
      Width           =   1455
      Begin VB.CommandButton EnterSingle 
         Caption         =   "Enter Single"
         Height          =   375
         Left            =   120
         TabIndex        =   40
         Top             =   720
         Width           =   1215
      End
      Begin VB.TextBox Fretnumber 
         Height          =   375
         Left            =   120
         TabIndex        =   39
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Frame SingleSelection 
      Caption         =   "Single Selection"
      Height          =   2415
      Left            =   6720
      TabIndex        =   31
      Top             =   1200
      Width           =   1455
      Begin VB.OptionButton a4 
         Caption         =   "A"
         Height          =   255
         Left            =   120
         TabIndex        =   37
         Top             =   240
         Width           =   1215
      End
      Begin VB.OptionButton b4 
         Caption         =   "B"
         Height          =   255
         Left            =   120
         TabIndex        =   36
         Top             =   600
         Width           =   1215
      End
      Begin VB.OptionButton c4 
         Caption         =   "C"
         Height          =   255
         Left            =   120
         TabIndex        =   35
         Top             =   960
         Width           =   1215
      End
      Begin VB.OptionButton d4 
         Caption         =   "D"
         Height          =   255
         Left            =   120
         TabIndex        =   34
         Top             =   1320
         Width           =   1215
      End
      Begin VB.OptionButton e4 
         Caption         =   "E"
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   1680
         Width           =   1095
      End
      Begin VB.OptionButton f4 
         Caption         =   "F"
         Height          =   255
         Left            =   120
         TabIndex        =   32
         Top             =   2040
         Width           =   1215
      End
   End
   Begin VB.Frame NoteSelection3 
      Caption         =   "Note Selection"
      Height          =   3015
      Left            =   8640
      TabIndex        =   23
      Top             =   960
      Visible         =   0   'False
      Width           =   1455
      Begin VB.OptionButton a3 
         Caption         =   "A"
         Height          =   255
         Left            =   120
         TabIndex        =   30
         Top             =   240
         Width           =   1215
      End
      Begin VB.OptionButton b3 
         Caption         =   "B"
         Height          =   255
         Left            =   120
         TabIndex        =   29
         Top             =   600
         Width           =   1215
      End
      Begin VB.OptionButton c3 
         Caption         =   "C"
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   960
         Width           =   1215
      End
      Begin VB.OptionButton d3 
         Caption         =   "D"
         Height          =   255
         Left            =   120
         TabIndex        =   27
         Top             =   1320
         Width           =   1215
      End
      Begin VB.OptionButton e3 
         Caption         =   "E"
         Height          =   255
         Left            =   120
         TabIndex        =   26
         Top             =   1680
         Width           =   1095
      End
      Begin VB.OptionButton f3 
         Caption         =   "F"
         Height          =   255
         Left            =   120
         TabIndex        =   25
         Top             =   2040
         Width           =   1215
      End
      Begin VB.CommandButton enter3 
         Caption         =   "Enter Note"
         Height          =   375
         Left            =   120
         TabIndex        =   24
         Top             =   2400
         Width           =   1215
      End
   End
   Begin VB.Frame NoteSelection2 
      Caption         =   "Note Selection"
      Height          =   3015
      Left            =   9120
      TabIndex        =   15
      Top             =   5160
      Visible         =   0   'False
      Width           =   1455
      Begin VB.CommandButton enternote2 
         Caption         =   "Enter Note"
         Height          =   375
         Left            =   120
         TabIndex        =   22
         Top             =   2400
         Width           =   1215
      End
      Begin VB.OptionButton f2 
         Caption         =   "F"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   2040
         Width           =   1215
      End
      Begin VB.OptionButton e2 
         Caption         =   "E"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1680
         Width           =   1095
      End
      Begin VB.OptionButton d2 
         Caption         =   "D"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   1320
         Width           =   1215
      End
      Begin VB.OptionButton c2 
         Caption         =   "C"
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   960
         Width           =   1215
      End
      Begin VB.OptionButton b2 
         Caption         =   "B"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   600
         Width           =   1215
      End
      Begin VB.OptionButton a2 
         Caption         =   "A"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.CommandButton addsingle 
      Caption         =   "Add Single"
      Height          =   495
      Left            =   120
      TabIndex        =   14
      Top             =   7080
      Width           =   1215
   End
   Begin VB.CommandButton addbar 
      Caption         =   "Add Bar Chord"
      Height          =   495
      Left            =   120
      TabIndex        =   13
      Top             =   6480
      Width           =   1215
   End
   Begin VB.CommandButton Addpower 
      Caption         =   "Add Power Chord"
      Height          =   495
      Left            =   120
      TabIndex        =   12
      Top             =   5880
      Width           =   1215
   End
   Begin VB.CommandButton addspace 
      Caption         =   "Add Space"
      Height          =   495
      Left            =   120
      TabIndex        =   11
      Top             =   7680
      Width           =   1215
   End
   Begin VB.CommandButton addchord 
      Caption         =   "Add Chord"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   5280
      Width           =   1215
   End
   Begin VB.TextBox txtWrite 
      Height          =   2895
      Left            =   1440
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   5280
      Width           =   7575
   End
   Begin VB.Frame NoteSelection 
      Caption         =   "Note Selection"
      Height          =   3015
      Left            =   9120
      TabIndex        =   3
      Top             =   5160
      Visible         =   0   'False
      Width           =   1455
      Begin VB.CommandButton enternote 
         Caption         =   "Enter Note"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   2400
         Width           =   1215
      End
      Begin VB.OptionButton f 
         Caption         =   "F"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   2040
         Width           =   1215
      End
      Begin VB.OptionButton e 
         Caption         =   "E"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton d 
         Caption         =   "D"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   1320
         Width           =   975
      End
      Begin VB.OptionButton c 
         Caption         =   "C"
         Height          =   210
         Left            =   120
         TabIndex        =   6
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton b 
         Caption         =   "B"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   600
         Width           =   1215
      End
      Begin VB.OptionButton a 
         Caption         =   "A"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Label Label1 
      Caption         =   "Line Setup:"
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   5040
      Width           =   2775
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Index           =   0
      Begin VB.Menu mnuOpen 
         Caption         =   "O&pen"
         Index           =   1
      End
      Begin VB.Menu mnuSave 
         Caption         =   "S&ave"
         Index           =   1
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
         Index           =   1
      End
   End
End
Attribute VB_Name = "TabWriter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim varResponse As Variant


Private Sub AddLine_Click()
    
    
    txtWrite.Text = "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & vbCrLf
    txtWrite.Text = "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & "|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |" & vbCrLf & vbCrLf
     
End Sub



Private Sub addnote_Click()

    NoteSelection.Visible = True
    
    
    
     
End Sub

Private Sub Command1_Click()

    Text1.Text = txtWrite.Text
End Sub

Private Sub addchord_Click()

    NoteSelection.Visible = True
    
End Sub

Private Sub Addpower_Click()

    NoteSelection2.Visible = True
    
End Sub

Private Sub enternote_Click()

    NoteSelection.Visible = True
    
    If a.Value = True Then
        txtWrite.Text = "---" & vbCrLf & "-2-" & vbCrLf & "-2-" & vbCrLf & "-2-" & vbCrLf & "-0-" & vbCrLf & "---"
    End If
    
    If b.Value = True Then
        txtWrite.Text = "---" & vbCrLf & "-4-" & vbCrLf & "-4-" & vbCrLf & "-4-" & vbCrLf & "-2-" & vbCrLf & "---"
    End If
    
    If c.Value = True Then
        txtWrite.Text = "-0-" & vbCrLf & "-1-" & vbCrLf & "-2-" & vbCrLf & "-0-" & vbCrLf & "-3-" & vbCrLf & "---"
    End If
    
    If d.Value = True Then
        txtWrite.Text = "-2-" & vbCrLf & "-3-" & vbCrLf & "-2-" & vbCrLf & "---" & vbCrLf & "---" & vbCrLf & "---"
    End If
    
    If e.Value = True Then
        txtWrite.Text = "-0-" & vbCrLf & "-0-" & vbCrLf & "-1-" & vbCrLf & "-2-" & vbCrLf & "-2-" & vbCrLf & "-0-"
    End If
    
    If f.Value = True Then
        txtWrite.Text = "-1-" & vbCrLf & "-1-" & vbCrLf & "-2-" & vbCrLf & "-3-" & vbCrLf & "-3-" & vbCrLf & "-1-"
    End If
    
    
End Sub

Private Sub enternote2_Click()

    If a2.Value = True Then
        txtWrite.Text = "---" & vbCrLf & "---" & vbCrLf & "---" & vbCrLf & "-5-" & vbCrLf & "-5-" & vbCrLf & "-3-"
    End If
    
End Sub

Private Sub Form_Load()

    'Do Until varResponse = "guitar"
    
     '   varResponse = InputBox("Enter Password")
    
      '  If varResponse = "guitar" Then
       ' MsgBox "  Welcome!"
        
        'Else
         '   MsgBox "Incorrect Password!"
        'End If
    
    'Loop
    
End Sub

Private Sub mnuExit_Click(Index As Integer)

    End
End Sub


Private Sub reset_Click()

    txtWrite.Text = " "
    NoteSelection.Visible = False
    NoteSelection2.Visible = False
    
    
End Sub

Private Sub Text1_Change()

End Sub