VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Begin VB.Form frmGroove
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   8595
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11880
   ScaleHeight     =   8595
   ScaleWidth      =   11880
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Frame frmVideo
      BackColor       =   &H00000000&
      Caption         =   "Video Options"
      Enabled         =   0   'False
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   3810
      Left            =   3135
      TabIndex        =   33
      Top             =   3390
      Width           =   8175
      Begin VB.PictureBox Picture1
         AutoRedraw      =   -1  'True
         BorderStyle     =   0  'None
         Height          =   975
         Left            =   3960
         ScaleHeight     =   975
         ScaleWidth      =   1755
         TabIndex        =   41
         Top             =   1995
         Visible         =   0   'False
         Width           =   1755
      End
      Begin VB.PictureBox Picture2
         AutoRedraw      =   -1  'True
         BorderStyle     =   0  'None
         Height          =   975
         Left            =   1995
         ScaleHeight     =   975
         ScaleWidth      =   1755
         TabIndex        =   40
         Top             =   1995
         Visible         =   0   'False
         Width           =   1755
      End
      Begin VB.TextBox txtVideoName
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFF80&
         Height          =   300
         Left            =   345
         TabIndex        =   39
         Text            =   "C:\MyDocu~1\Myproj~1\winshell\movie1.avi"
         Top             =   315
         Width           =   5850
      End
      Begin VB.CommandButton cmdVideoBrowse
         Caption         =   "Browse"
         Height          =   450
         Left            =   495
         TabIndex        =   38
         Top             =   705
         Width           =   1350
      End
      Begin VB.CommandButton cmdVideoStop
         Caption         =   "Stop"
         Height          =   450
         Left            =   3195
         TabIndex        =   37
         Top             =   705
         Width           =   1365
      End
      Begin VB.CommandButton cmdVideoPlay
         Caption         =   "Play"
         Height          =   450
         Left            =   1830
         TabIndex        =   35
         Top             =   705
         Width           =   1365
      End
   End
   Begin VB.Frame frmTime
      BackColor       =   &H00000000&
      Caption         =   "Time Jump"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   735
      Left            =   240
      TabIndex        =   6
      Top             =   1800
      Width           =   2535
      Begin VB.TextBox Text2
         BackColor       =   &H00000000&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   285
         Left            =   120
         TabIndex        =   9
         Text            =   "5"
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton cmdBack
         Caption         =   "<<"
         Height          =   375
         Left            =   1440
         TabIndex        =   8
         TabStop         =   0   'False
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton cmdFwd
         Caption         =   ">>"
         Height          =   375
         Left            =   1920
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label1
         BackStyle       =   0  'Transparent
         Caption         =   "Seconds"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   720
         TabIndex        =   10
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.CommandButton cmdExit
      Caption         =   "Exit"
      Height          =   615
      Left            =   10080
      TabIndex        =   22
      Top             =   7800
      Width           =   1575
   End
   Begin VB.Frame Frame1
      BackColor       =   &H00000000&
      Caption         =   "Track Jump"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   1095
      Left            =   240
      TabIndex        =   11
      Top             =   2520
      Width           =   2535
      Begin VB.CommandButton cmdPlay
         Caption         =   "Play"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1200
         TabIndex        =   16
         TabStop         =   0   'False
         Top             =   360
         Width           =   615
      End
      Begin VB.CommandButton cmdStop
         Caption         =   "Stop"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1800
         TabIndex        =   15
         TabStop         =   0   'False
         Top             =   360
         Width           =   615
      End
      Begin VB.TextBox Text1
         BackColor       =   &H00000000&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   285
         Left            =   720
         TabIndex        =   14
         Text            =   "1"
         Top             =   360
         Width           =   375
      End
      Begin VB.CommandButton cmdTrackB
         Caption         =   "<<"
         Height          =   255
         Left            =   360
         TabIndex        =   13
         Top             =   720
         Width           =   375
      End
      Begin VB.CommandButton cmdTrackF
         Caption         =   ">>"
         Height          =   255
         Left            =   720
         TabIndex        =   12
         Top             =   720
         Width           =   375
      End
      Begin VB.Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "Track:"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.Frame frmWave
      BackColor       =   &H00000000&
      Caption         =   "Wave Options"
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   1575
      Left            =   3120
      TabIndex        =   1
      Top             =   1800
      Width           =   4095
      Begin VB.CommandButton cmdWavStop
         Caption         =   "Stop"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3000
         TabIndex        =   3
         Top             =   1080
         Width           =   975
      End
      Begin VB.TextBox txtWavName
         BackColor       =   &H00000000&
         ForeColor       =   &H0000FF00&
         Height          =   285
         Left            =   120
         TabIndex        =   5
         Top             =   600
         Width           =   3855
      End
      Begin VB.CommandButton cmdWavPlay
         Caption         =   "Play"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2040
         TabIndex        =   4
         Top             =   1080
         Width           =   975
      End
      Begin VB.CommandButton cmdWavBrowse
         Caption         =   "Browse"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label4
         BackStyle       =   0  'Transparent
         Caption         =   "File Path"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   24
         Top             =   360
         Width           =   1455
      End
   End
   Begin VB.Frame frmMP3
      BackColor       =   &H00000000&
      Caption         =   "MP3 Options"
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   1575
      Left            =   7230
      TabIndex        =   25
      Top             =   1800
      Width           =   4095
      Begin VB.TextBox txtMP3SongName
         BackColor       =   &H00000000&
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   285
         Left            =   120
         TabIndex        =   34
         Top             =   600
         Width           =   3855
      End
      Begin VB.CommandButton cmdMP3Stop
         Caption         =   "Stop"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3000
         TabIndex        =   32
         Top             =   1080
         Width           =   975
      End
      Begin VB.TextBox txtMP3Name
         BackColor       =   &H00000000&
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   285
         Left            =   120
         TabIndex        =   31
         Top             =   240
         Visible         =   0   'False
         Width           =   3855
      End
      Begin VB.CommandButton cmdMP3Browse
         Caption         =   "Browse"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   26
         Top             =   1080
         Width           =   855
      End
      Begin VB.Timer Timer1
         Interval        =   10
         Left            =   1560
         Top             =   960
      End
      Begin VB.CommandButton cmdMP3Play
         Caption         =   "Play"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2040
         Style           =   1  'Graphical
         TabIndex        =   27
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label lblElapsedTime
         BackStyle       =   0  'Transparent
         Caption         =   "lblElapsed"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   240
         TabIndex        =   30
         Top             =   240
         Visible         =   0   'False
         Width           =   1935
      End
      Begin VB.Label lblTotalTime
         BackStyle       =   0  'Transparent
         Caption         =   "lblTotalTime"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   2400
         TabIndex        =   29
         Top             =   240
         Visible         =   0   'False
         Width           =   1935
      End
      Begin VB.Label lblMsg
         BackStyle       =   0  'Transparent
         Caption         =   "lblMsg"
         BeginProperty Font
            Name            =   "OCR A Extended"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2520
         TabIndex        =   28
         Top             =   1200
         Visible         =   0   'False
         Width           =   1935
      End
   End
   Begin MSComDlg.CommonDialog dlgFile
      Left            =   2280
      Top             =   1320
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MediaPlayerCtl.MediaPlayer MediaPlayer1
      Height          =   690
      Left            =   7275
      TabIndex        =   36
      Top             =   945
      Visible         =   0   'False
      Width           =   2760
      AudioStream     =   -1
      AutoSize        =   0   'False
      AutoStart       =   -1  'True
      AnimationAtStart=   -1  'True
      AllowScan       =   -1  'True
      AllowChangeDisplaySize=   -1  'True
      AutoRewind      =   0   'False
      Balance         =   0
      BaseURL         =   ""
      BufferingTime   =   5
      CaptioningID    =   ""
      ClickToPlay     =   -1  'True
      CursorType      =   0
      CurrentPosition =   -1
      CurrentMarker   =   0
      DefaultFrame    =   ""
      DisplayBackColor=   0
      DisplayForeColor=   0
      DisplayMode     =   1
      DisplaySize     =   4
      Enabled         =   -1  'True
      EnableContextMenu=   -1  'True
      EnablePositionControls=   -1  'True
      EnableFullScreenControls=   -1  'True
      EnableTracker   =   -1  'True
      Filename        =   ""
      InvokeURLs      =   0   'False
      Language        =   -1
      Mute            =   0   'False
      PlayCount       =   1
      PreviewMode     =   -1  'True
      Rate            =   1
      SAMILang        =   ""
      SAMIStyle       =   ""
      SAMIFileName    =   ""
      SelectionStart  =   -1
      SelectionEnd    =   -1
      SendOpenStateChangeEvents=   -1  'True
      SendWarningEvents=   -1  'True
      SendErrorEvents =   -1  'True
      SendKeyboardEvents=   0   'False
      SendMouseClickEvents=   0   'False
      SendMouseMoveEvents=   0   'False
      SendPlayStateChangeEvents=   -1  'True
      ShowCaptioning  =   0   'False
      ShowControls    =   -1  'True
      ShowAudioControls=   -1  'True
      ShowDisplay     =   0   'False
      ShowGotoBar     =   0   'False
      ShowPositionControls=   -1  'True
      ShowStatusBar   =   0   'False
      ShowTracker     =   -1  'True
      TransparentAtStart=   -1  'True
      VideoBorderWidth=   0
      VideoBorderColor=   0
      VideoBorder3D   =   -1  'True
      Volume          =   -10
      WindowlessVideo =   -1  'True
   End
   Begin VB.Label lblCDTime
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   240
      TabIndex        =   23
      Top             =   3600
      Width           =   2535
   End
   Begin VB.Label lblOpenCD
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Open CD Tray"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   240
      TabIndex        =   21
      Top             =   3960
      Width           =   2535
   End
   Begin VB.Label lblCloseCD
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Close CD Tray"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   240
      TabIndex        =   20
      Top             =   4320
      Width           =   2535
   End
   Begin VB.Label Label3
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "CD PLAYER"
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   19
      Top             =   1440
      Width           =   1365
   End
   Begin VB.Label Label3
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "AUDIO PLAYER"
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Index           =   1
      Left            =   3285
      TabIndex        =   18
      Top             =   1440
      Width           =   1815
   End
   Begin VB.Label lblIntro
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "The Groove Machine"
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   36
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   750
      Left            =   2025
      TabIndex        =   0
      Top             =   240
      Width           =   7845
   End
End
Attribute VB_Name = "frmGroove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public SwitchVal As Boolean
Dim GenresTypes
Dim Min As Integer
Dim Sec As Integer
Dim filename As String
Dim FileOpen As Boolean
Dim CurrentTag As TagInfo
Dim i As Long
Dim RS As String
Dim cb As Long
Dim x As Long
Dim y As Long
Dim A As String
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd&, ByVal wMsg&, ByVal wParam&, lParam As Any)
Private Declare Function ReleaseCapture Lib "user32" () As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Dim BitD As Boolean, StartA%, StartB%, StartC%, StartD%, StartE%, StartF%, abc%, Abort As Boolean
Private Type TagInfo
    Tag As String * 3
    Songname As String * 30
    artist As String * 30
    album As String * 30
    year As String * 4
    comment As String * 30
    genre As String * 1
End Type
Dim snd As CDAudio

Private Sub cmdMP3Browse_Click()
Dim filenm As String
On Error GoTo err2
dlgFile.CancelError = True
dlgFile.DefaultExt = "*.mp3"
dlgFile.Filter = "MP3 Files (*.mp3)|*.mp3|" & "All Files (*.*)|*.*"
dlgFile.FilterIndex = 1
dlgFile.ShowOpen
txtMP3Name.Text = dlgFile.filename
txtMP3SongName.Text = dlgFile.FileTitle
err2:
End Sub


Private Sub cmdMP3Play_Click()
With MediaPlayer1
    If Not FileOpen Then
        .filename = txtMP3Name.Text
        .AutoStart = False
    End If
End With
End Sub

Private Sub cmdMP3Stop_Click()
With MediaPlayer1
    If FileOpen Then
        .filename = ""
    End If
End With
End Sub

Private Sub cmdVideoBrowse_Click()
Dim filenm As String
On Error GoTo err1
dlgFile.CancelError = True
dlgFile.DefaultExt = "*.avi"
dlgFile.Filter = "Video Files (*.avi)|*.avi|" & "All Files (*.*)|*.*"
dlgFile.FilterIndex = 1
dlgFile.ShowOpen
filenm = dlgFile.filename
txtVideoName.Text = filenm
err1:
End Sub

Private Sub cmdVideoPlay_Click()
    cmdVideoStop_Click
    RS = Space$(1000)
    A = txtVideoName.Text
    i = MciSendString("open AVIvideo!" & A & " alias movie parent " & Frame1.hwnd & " style child", RS, 1000, cb)
    If i Then MsgBox "Error! Probably file not found."
    i = MciSendString("play movie", RS, 1000, cb)
End Sub

Private Sub cmdVideoStop_Click()
    RS = Space$(128)
    i = MciSendString("stop movie", RS, 128, cb)
    i = MciSendString("close movie", RS, 128, cb)
End Sub

Private Sub MediaPlayer1_OpenStateChange(ByVal _
    OldState As Long, ByVal NewState As Long)

Min = MediaPlayer1.Duration  60
Sec = MediaPlayer1.Duration - (Min * 60)
lblTotalTime = "Total Time: " & Format(Min, "0#") _
    & ":" & Format(Sec, "0#"