ToolTipText = "IF YOU LIKE THIS PROGRAM VISIT MY WEB SITE"
Top = 5040
Width = 2670
End
Begin VB.Label Label4
Caption = "Label4"
Height = 495
Left = 1800
TabIndex = 23
Top = 3840
Width = 1215
End
Begin VB.Label Label3
Caption = "NOTE COUNT"
Height = 255
Left = 3480
TabIndex = 22
Top = 4680
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "DURATION"
Height = 495
Index = 2
Left = 6720
TabIndex = 14
Top = 3000
Width = 1215
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "FREQUENCY"
Height = 495
Index = 1
Left = 5520
TabIndex = 13
Top = 3000
Width = 1095
End
Begin VB.Label Label1
Caption = "MIDI NOTATION LIST"
Height = 495
Index = 0
Left = 3360
TabIndex = 10
Top = 3000
Width = 2055
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "TUNE TIME"
Height = 255
Index = 3
Left = 720
TabIndex = 21
Top = 4560
Width = 1215
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const LB_GETTOPINDEX = &H18E
Private Const LB_SETTOPINDEX = &H197
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Const myerrfilepath = 53
Const mydeleteerr = 5
'Private Sub Check1_Click()
''**************************
'' repeat tune *
''**************************
'If Check1.Value = 0 Then
'Check1.Caption = "NO REPEAT"
'ElseIf Check1.Value = 1 Then
'Check1.Caption = "REPEAT"
'tmrRepeat.Enabled = True
'tmrRepeat.Interval = Val(txtRepeatTime.Text)
'End If
'End Sub
Private Sub Command1_Click()
'**************************
' end app *
'**************************
Unload Me
Unload frmReadMe
End
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
