Below you'll find the source for the Visual Basic 6 function id3_genre_name.
Attribute VB_Name = "modId3GenreName"
' This function is downloaded from:
' http://www.stefanthoolen.nl/archive/vb6-functions/
'
' You may freely distribute this file but please leave all comments, including this one, in it.
'
' @Author Stefan Thoolen <mail@stefanthoolen.nl>
Option Explicit
''
' Returns the name of a genre number
' @param Byte id The number of the genre
' @return String The name of the genre
' @author Stefan Thoolen <mail@stefanthoolen.nl>
Public Function id3_genre_name(id As Byte) As String
Dim genre As String
Select Case id
Case 0: genre = "Blues"
Case 1: genre = "Classic Rock"
Case 2: genre = "Country"
Case 3: genre = "Dance"
Case 4: genre = "Disco"
Case 5: genre = "Funk"
Case 6: genre = "Grunge"
Case 7: genre = "Hip-Hop"
Case 8: genre = "Jazz"
Case 9: genre = "Metal"
Case 10: genre = "New Age"
Case 11: genre = "Oldies"
Case 12: genre = "Other"
Case 13: genre = "Pop"
Case 14: genre = "R&B"
Case 15: genre = "Rap"
Case 16: genre = "Reggae"
Case 17: genre = "Rock"
Case 18: genre = "Techno"
Case 19: genre = "Industrial"
Case 20: genre = "Alternative"
Case 21: genre = "Ska"
Case 22: genre = "Death Metal"
Case 23: genre = "Pranks"
Case 24: genre = "Soundtrack"
Case 25: genre = "Euro-Techno"
Case 26: genre = "Ambient"
Case 27: genre = "Trip-Hop"
Case 28: genre = "Vocal"
Case 29: genre = "Jazz+Funk"
Case 30: genre = "Fusion"
Case 31: genre = "Trance"
Case 32: genre = "Classical"
Case 33: genre = "Instrumental"
Case 34: genre = "Acid"
Case 35: genre = "House"
Case 36: genre = "Game"
Case 37: genre = "Sound Clip"
Case 38: genre = "Gospel"
Case 39: genre = "Noise"
Case 40: genre = "AlternRock"
Case 41: genre = "Bass"
Case 42: genre = "Soul"
Case 43: genre = "Punk"
Case 44: genre = "Space"
Case 45: genre = "Meditative"
Case 46: genre = "Instrumental Pop"
Case 47: genre = "Instrumental Rock"
Case 48: genre = "Ethnic"
Case 49: genre = "Gothic"
Case 50: genre = "Darkwave"
Case 51: genre = "Techno-Industrial"
Case 52: genre = "Electronic"
Case 53: genre = "Pop-Folk"
Case 54: genre = "Eurodance"
Case 55: genre = "Dream"
Case 56: genre = "Southern Rock"
Case 57: genre = "Comedy"
Case 58: genre = "Cult"
Case 59: genre = "Gangsta"
Case 60: genre = "Top 40"
Case 61: genre = "Christian Rap"
Case 62: genre = "Pop/Funk"
Case 63: genre = "Jungle"
Case 64: genre = "Native American"
Case 65: genre = "Cabaret"
Case 66: genre = "New Wave"
Case 67: genre = "Psychadelic"
Case 68: genre = "Rave"
Case 69: genre = "Showtunes"
Case 70: genre = "Trailer"
Case 71: genre = "Lo-Fi"
Case 72: genre = "Tribal"
Case 73: genre = "Acid Punk"
Case 74: genre = "Acid Jazz"
Case 75: genre = "Polka"
Case 76: genre = "Retro"
Case 77: genre = "Musical"
Case 78: genre = "Rock & Roll"
Case 79: genre = "Hard Rock"
Case 80: genre = "Folk"
Case 81: genre = "Folk-Rock"
Case 82: genre = "National Folk"
Case 83: genre = "Swing"
Case 84: genre = "Fast Fusion"
Case 85: genre = "Bebob"
Case 86: genre = "Latin"
Case 87: genre = "Revival"
Case 88: genre = "Celtic"
Case 89: genre = "Bluegrass"
Case 90: genre = "Avantgarde"
Case 91: genre = "Gothic Rock"
Case 92: genre = "Progressive Rock"
Case 93: genre = "Psychedelic Rock"
Case 94: genre = "Symphonic Rock"
Case 95: genre = "Slow Rock"
Case 96: genre = "Big Band"
Case 97: genre = "Chorus"
Case 98: genre = "Easy Listening"
Case 99: genre = "Acoustic"
Case 100: genre = "Humour"
Case 101: genre = "Speech"
Case 102: genre = "Chanson"
Case 103: genre = "Opera"
Case 104: genre = "Chamber Music"
Case 105: genre = "Sonata"
Case 106: genre = "Symphony"
Case 107: genre = "Booty Bass"
Case 108: genre = "Primus"
Case 109: genre = "Porn Groove"
Case 110: genre = "Satire"
Case 111: genre = "Slow Jam"
Case 112: genre = "Club"
Case 113: genre = "Tango"
Case 114: genre = "Samba"
Case 115: genre = "Folklore"
Case 116: genre = "Ballad"
Case 117: genre = "Power Ballad"
Case 118: genre = "Rhythmic Soul"
Case 119: genre = "Freestyle"
Case 120: genre = "Duet"
Case 121: genre = "Punk Rock"
Case 122: genre = "Drum Solo"
Case 123: genre = "A capella"
Case 124: genre = "Euro-House"
Case 125: genre = "Dance Hall"
Case Else: genre = "Unknown"
End Select
id3_genre_name = genre
End Function