[APP] Sprite Viewer [v1.0] - SOURCE

Public Class Form1

    Dim MaxItem As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
        ThirteenComboBox1.SelectedIndex = 1
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged


        If (ComboBox1.SelectedIndex = 0) Then
            OneItem("intro1")
        ElseIf (ComboBox1.SelectedIndex = 1) Then
            OneItem("intro2")
        ElseIf (ComboBox1.SelectedIndex = 2) Then
            OneItem("intro3")
        ElseIf (ComboBox1.SelectedIndex = 3) Then
            OneItem("intro4")
        ElseIf (ComboBox1.SelectedIndex = 4) Then
            ListBox1.Items.Clear()

            ListBox1.Items.Add("chit")
            ListBox1.Items.Add("circle")
            ListBox1.Items.Add("cring")
            ListBox1.Items.Add("cross")
            ListBox1.Items.Add("down")
            ListBox1.Items.Add("downl")
            ListBox1.Items.Add("downr")
            ListBox1.Items.Add("left")
            ListBox1.Items.Add("right")
            ListBox1.Items.Add("square")
            ListBox1.Items.Add("triang")
            ListBox1.Items.Add("up")
            ListBox1.Items.Add("upl")
            ListBox1.Items.Add("upr")

            ListBox1.SelectedIndex = 0

            MaxItem = 13
            BT_Back.Enabled = True
            BT_Next.Enabled = True
        ElseIf (ComboBox1.SelectedIndex = 5) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("bum2")
            ListBox1.Items.Add("bum1")
            ListBox1.Items.Add("blkdot")

            ListBox1.SelectedIndex = 0

            MaxItem = 2
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 6) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("cdback")
            ListBox1.Items.Add("cd9s")
            ListBox1.Items.Add("cd9h")
            ListBox1.Items.Add("cd9d")
            ListBox1.Items.Add("cd9c")

            ListBox1.Items.Add("cd8s")
            ListBox1.Items.Add("cd8h")
            ListBox1.Items.Add("cd8d")
            ListBox1.Items.Add("cd8c")

            ListBox1.Items.Add("cd7s")
            ListBox1.Items.Add("cd7h")
            ListBox1.Items.Add("cd7d")
            ListBox1.Items.Add("cd7c")

            ListBox1.Items.Add("cd6s")
            ListBox1.Items.Add("cd6h")
            ListBox1.Items.Add("cd6d")
            ListBox1.Items.Add("cd6c")

            ListBox1.Items.Add("cd5s")
            ListBox1.Items.Add("cd5h")
            ListBox1.Items.Add("cd5d")
            ListBox1.Items.Add("cd5c")

            ListBox1.Items.Add("cd4s")
            ListBox1.Items.Add("cd4h")
            ListBox1.Items.Add("cd4d")
            ListBox1.Items.Add("cd4c")

            ListBox1.Items.Add("cd3s")
            ListBox1.Items.Add("cd3h")
            ListBox1.Items.Add("cd3d")
            ListBox1.Items.Add("cd3c")

            ListBox1.Items.Add("cd2s")
            ListBox1.Items.Add("cd2h")
            ListBox1.Items.Add("cd2d")
            ListBox1.Items.Add("cd2c")

            ListBox1.Items.Add("cd1s")
            ListBox1.Items.Add("cd1h")
            ListBox1.Items.Add("cd1d")
            ListBox1.Items.Add("cd1c")

            ListBox1.Items.Add("cd13s")
            ListBox1.Items.Add("cd13h")
            ListBox1.Items.Add("cd13d")
            ListBox1.Items.Add("cd13c")

            ListBox1.Items.Add("cd12s")
            ListBox1.Items.Add("cd12h")
            ListBox1.Items.Add("cd12d")
            ListBox1.Items.Add("cd12c")

            ListBox1.Items.Add("cd11s")
            ListBox1.Items.Add("cd11h")
            ListBox1.Items.Add("cd11d")
            ListBox1.Items.Add("cd11c")

            ListBox1.Items.Add("cd10s")
            ListBox1.Items.Add("cd10h")
            ListBox1.Items.Add("cd10d")
            ListBox1.Items.Add("cd10c")

            ListBox1.SelectedIndex = 0

            MaxItem = 52
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 7) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("thumbup")
            ListBox1.Items.Add("thumbdn")
            ListBox1.Items.Add("goodcha")
            ListBox1.Items.Add("dpad_lr")
            ListBox1.Items.Add("dpad_64")
            ListBox1.Items.Add("badchat")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 8) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("blkdot")
            ListBox1.Items.Add("brboat")
            ListBox1.Items.Add("brfly")
            ListBox1.Items.Add("bronze")
            ListBox1.Items.Add("goboat")
            ListBox1.Items.Add("gold")
            ListBox1.Items.Add("golfly")
            ListBox1.Items.Add("naward")
            ListBox1.Items.Add("nawtxt")
            ListBox1.Items.Add("ribb")
            ListBox1.Items.Add("ribbw")
            ListBox1.Items.Add("silboat")
            ListBox1.Items.Add("silfly")
            ListBox1.Items.Add("silver")
            ListBox1.Items.Add("tvbase")
            ListBox1.Items.Add("tvcorn")

            ListBox1.SelectedIndex = 0

            MaxItem = 15
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 9) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("backgnd")
            ListBox1.Items.Add("black")
            ListBox1.Items.Add("dark")
            ListBox1.Items.Add("DUALITY")
            ListBox1.Items.Add("ex1")
            ListBox1.Items.Add("ex2")
            ListBox1.Items.Add("ex3")
            ListBox1.Items.Add("ex4")
            ListBox1.Items.Add("Health")
            ListBox1.Items.Add("layer")
            ListBox1.Items.Add("light")
            ListBox1.Items.Add("power")
            ListBox1.Items.Add("rockshp")
            ListBox1.Items.Add("shoot")
            ListBox1.Items.Add("thrustG")
            ListBox1.Items.Add("tvcorn")
            ListBox1.Items.Add("white")

            ListBox1.SelectedIndex = 0

            MaxItem = 16
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 10) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("bee1")
            ListBox1.Items.Add("bee2")
            ListBox1.Items.Add("beea")
            ListBox1.Items.Add("bumble")
            ListBox1.Items.Add("exitw")
            ListBox1.Items.Add("exity")
            ListBox1.Items.Add("flwr")
            ListBox1.Items.Add("flwra")
            ListBox1.Items.Add("ghost")
            ListBox1.Items.Add("hiscorew")
            ListBox1.Items.Add("hiscorey")
            ListBox1.Items.Add("hive")
            ListBox1.Items.Add("hon")
            ListBox1.Items.Add("leaf")
            ListBox1.Items.Add("playw")
            ListBox1.Items.Add("playy")
            ListBox1.Items.Add("sky")
            ListBox1.Items.Add("thorn")
            ListBox1.Items.Add("timer")
            ListBox1.Items.Add("tvcorn")
            ListBox1.Items.Add("tvl")
            ListBox1.Items.Add("tvr")

            ListBox1.SelectedIndex = 0

            MaxItem = 21
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 11) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("explm01")
            ListBox1.Items.Add("explm02")
            ListBox1.Items.Add("explm03")
            ListBox1.Items.Add("explm04")
            ListBox1.Items.Add("explm05")
            ListBox1.Items.Add("explm06")
            ListBox1.Items.Add("explm07")
            ListBox1.Items.Add("explm08")
            ListBox1.Items.Add("explm09")
            ListBox1.Items.Add("explm10")
            ListBox1.Items.Add("explm11")
            ListBox1.Items.Add("explm12")
            ListBox1.Items.Add("force")
            ListBox1.Items.Add("light")
            ListBox1.Items.Add("ship")
            ListBox1.Items.Add("ship2")
            ListBox1.Items.Add("ship3")
            ListBox1.Items.Add("shoot")
            ListBox1.Items.Add("shpnorm")
            ListBox1.Items.Add("shpwarp")
            ListBox1.Items.Add("thrust")
            ListBox1.Items.Add("title")
            ListBox1.Items.Add("tvcorn")
            ListBox1.Items.Add("warp")

            ListBox1.SelectedIndex = 0

            MaxItem = 23
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 12) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("bckgrnd")
            ListBox1.Items.Add("blue")
            ListBox1.Items.Add("bride1")
            ListBox1.Items.Add("bride2")
            ListBox1.Items.Add("bride3")
            ListBox1.Items.Add("bride4")
            ListBox1.Items.Add("bride5")
            ListBox1.Items.Add("bride6")
            ListBox1.Items.Add("bride7")
            ListBox1.Items.Add("bride8")
            ListBox1.Items.Add("bushes")
            ListBox1.Items.Add("fen")
            ListBox1.Items.Add("gride1")
            ListBox1.Items.Add("gride2")
            ListBox1.Items.Add("gride3")
            ListBox1.Items.Add("gride4")
            ListBox1.Items.Add("gride5")
            ListBox1.Items.Add("gride6")
            ListBox1.Items.Add("gride7")
            ListBox1.Items.Add("gride8")
            ListBox1.Items.Add("hrs1")
            ListBox1.Items.Add("hrs2")
            ListBox1.Items.Add("hrs3")
            ListBox1.Items.Add("hrs4")
            ListBox1.Items.Add("hrs5")
            ListBox1.Items.Add("hrs6")
            ListBox1.Items.Add("hrs7")
            ListBox1.Items.Add("hrs8")
            ListBox1.Items.Add("pole2")
            ListBox1.Items.Add("pride1")
            ListBox1.Items.Add("pride2")
            ListBox1.Items.Add("pride3")
            ListBox1.Items.Add("pride4")
            ListBox1.Items.Add("pride5")
            ListBox1.Items.Add("pride6")
            ListBox1.Items.Add("pride7")
            ListBox1.Items.Add("pride8")
            ListBox1.Items.Add("rride1")
            ListBox1.Items.Add("rride2")
            ListBox1.Items.Add("rride3")
            ListBox1.Items.Add("rride4")
            ListBox1.Items.Add("rride5")
            ListBox1.Items.Add("rride6")
            ListBox1.Items.Add("rride7")
            ListBox1.Items.Add("rride8")
            ListBox1.Items.Add("trees")
            ListBox1.Items.Add("tvcorn")
            ListBox1.Items.Add("tvl")
            ListBox1.Items.Add("tvr")
            ListBox1.Items.Add("yride1")
            ListBox1.Items.Add("yride2")
            ListBox1.Items.Add("yride3")
            ListBox1.Items.Add("yride4")
            ListBox1.Items.Add("yride5")
            ListBox1.Items.Add("yride6")
            ListBox1.Items.Add("yride7")
            ListBox1.Items.Add("yride8")

            ListBox1.SelectedIndex = 0

            MaxItem = 56
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 13) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("backbet")
            ListBox1.Items.Add("butnA")
            ListBox1.Items.Add("butnAo")
            ListBox1.Items.Add("butnB")
            ListBox1.Items.Add("butnBo")
            ListBox1.Items.Add("butnC")
            ListBox1.Items.Add("Ric1")
            ListBox1.Items.Add("Ric2")
            ListBox1.Items.Add("Ric3")
            ListBox1.Items.Add("Ric4")
            ListBox1.Items.Add("Ric5")

            ListBox1.SelectedIndex = 0

            MaxItem = 10
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 14) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("AirLogo")
            ListBox1.Items.Add("blkdot")
            ListBox1.Items.Add("tvbase")
            ListBox1.Items.Add("tvcorn")

            ListBox1.SelectedIndex = 0

            MaxItem = 3
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 15) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("cdback")
            ListBox1.Items.Add("cd9s")
            ListBox1.Items.Add("cd9h")
            ListBox1.Items.Add("cd9d")
            ListBox1.Items.Add("cd9c")

            ListBox1.Items.Add("cd8s")
            ListBox1.Items.Add("cd8h")
            ListBox1.Items.Add("cd8d")
            ListBox1.Items.Add("cd8c")

            ListBox1.Items.Add("cd7s")
            ListBox1.Items.Add("cd7h")
            ListBox1.Items.Add("cd7d")
            ListBox1.Items.Add("cd7c")

            ListBox1.Items.Add("cd6s")
            ListBox1.Items.Add("cd6h")
            ListBox1.Items.Add("cd6d")
            ListBox1.Items.Add("cd6c")

            ListBox1.Items.Add("cd5s")
            ListBox1.Items.Add("cd5h")
            ListBox1.Items.Add("cd5d")
            ListBox1.Items.Add("cd5c")

            ListBox1.Items.Add("cd4s")
            ListBox1.Items.Add("cd4h")
            ListBox1.Items.Add("cd4d")
            ListBox1.Items.Add("cd4c")

            ListBox1.Items.Add("cd3s")
            ListBox1.Items.Add("cd3h")
            ListBox1.Items.Add("cd3d")
            ListBox1.Items.Add("cd3c")

            ListBox1.Items.Add("cd2s")
            ListBox1.Items.Add("cd2h")
            ListBox1.Items.Add("cd2d")
            ListBox1.Items.Add("cd2c")

            ListBox1.Items.Add("cd1s")
            ListBox1.Items.Add("cd1h")
            ListBox1.Items.Add("cd1d")
            ListBox1.Items.Add("cd1c")

            ListBox1.Items.Add("cd13s")
            ListBox1.Items.Add("cd13h")
            ListBox1.Items.Add("cd13d")
            ListBox1.Items.Add("cd13c")

            ListBox1.Items.Add("cd12s")
            ListBox1.Items.Add("cd12h")
            ListBox1.Items.Add("cd12d")
            ListBox1.Items.Add("cd12c")

            ListBox1.Items.Add("cd11s")
            ListBox1.Items.Add("cd11h")
            ListBox1.Items.Add("cd11d")
            ListBox1.Items.Add("cd11c")

            ListBox1.Items.Add("cd10s")
            ListBox1.Items.Add("cd10h")
            ListBox1.Items.Add("cd10d")
            ListBox1.Items.Add("cd10c")

            ListBox1.Items.Add("addcoin")
            ListBox1.Items.Add("backcyan")
            ListBox1.Items.Add("backred")
            ListBox1.Items.Add("deal")
            ListBox1.Items.Add("holdmid")
            ListBox1.Items.Add("holdoff")
            ListBox1.Items.Add("holdon")
            ListBox1.Items.Add("tvcorn")

            ListBox1.SelectedIndex = 0

            MaxItem = 60
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 16) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("ball")
            ListBox1.Items.Add("nib")

            ListBox1.SelectedIndex = 0

            MaxItem = 1
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 17) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("race00")
            ListBox1.Items.Add("race01")
            ListBox1.Items.Add("race02")
            ListBox1.Items.Add("race03")
            ListBox1.Items.Add("race04")
            ListBox1.Items.Add("race05")
            ListBox1.Items.Add("race06")
            ListBox1.Items.Add("race07")
            ListBox1.Items.Add("race08")
            ListBox1.Items.Add("race09")
            ListBox1.Items.Add("race10")
            ListBox1.Items.Add("race11")
            ListBox1.Items.Add("race12")

            ListBox1.SelectedIndex = 0

            MaxItem = 12
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 18) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("race00")
            ListBox1.Items.Add("race01")
            ListBox1.Items.Add("race02")
            ListBox1.Items.Add("race03")
            ListBox1.Items.Add("race04")
            ListBox1.Items.Add("race05")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 19) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("race06")
            ListBox1.Items.Add("race07")
            ListBox1.Items.Add("race08")
            ListBox1.Items.Add("race09")
            ListBox1.Items.Add("race10")
            ListBox1.Items.Add("race11")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 20) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("race12")
            ListBox1.Items.Add("race13")
            ListBox1.Items.Add("race14")
            ListBox1.Items.Add("race15")
            ListBox1.Items.Add("race16")
            ListBox1.Items.Add("race17")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 21) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("race18")
            ListBox1.Items.Add("race19")
            ListBox1.Items.Add("race20")
            ListBox1.Items.Add("race21")
            ListBox1.Items.Add("race22")
            ListBox1.Items.Add("race23")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 22) Then

            OneItem("race24")

        ElseIf (ComboBox1.SelectedIndex = 23) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("roulbla")
            ListBox1.Items.Add("roulgre")
            ListBox1.Items.Add("roulred")

            ListBox1.SelectedIndex = 0

            MaxItem = 2
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 24) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("fire")
            ListBox1.Items.Add("nmef")
            ListBox1.Items.Add("cbarl")
            ListBox1.Items.Add("cbarm")
            ListBox1.Items.Add("cbarr")
            ListBox1.Items.Add("hbarl")
            ListBox1.Items.Add("hbarm")
            ListBox1.Items.Add("hbarr")
            ListBox1.Items.Add("hi_a")
            ListBox1.Items.Add("hi_c")
            ListBox1.Items.Add("un_a")
            ListBox1.Items.Add("un_c")
            ListBox1.Items.Add("ex1")
            ListBox1.Items.Add("ex2")
            ListBox1.Items.Add("ex3")
            ListBox1.Items.Add("ex4")
            ListBox1.Items.Add("pa")
            ListBox1.Items.Add("pm2")
            ListBox1.Items.Add("pm3")
            ListBox1.Items.Add("ps1")
            ListBox1.Items.Add("ps2")
            ListBox1.Items.Add("ps3")
            ListBox1.Items.Add("hi_b")
            ListBox1.Items.Add("un_b")
            ListBox1.Items.Add("kami")
            ListBox1.Items.Add("ship")
            ListBox1.Items.Add("ufo")
            ListBox1.Items.Add("bstars")
            ListBox1.Items.Add("fstar")
            ListBox1.Items.Add("splsh")
            ListBox1.Items.Add("tvcorn")
            ListBox1.Items.Add("tvl")
            ListBox1.Items.Add("tvr")

            ListBox1.SelectedIndex = 0

            MaxItem = 32
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 25) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("bar1_o")
            ListBox1.Items.Add("bar2_o")
            ListBox1.Items.Add("bell")
            ListBox1.Items.Add("cherry")
            ListBox1.Items.Add("grapes")
            ListBox1.Items.Add("r_69")

            ListBox1.SelectedIndex = 0

            MaxItem = 5
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 26) Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add("4rip")
            ListBox1.Items.Add("4spider")
            ListBox1.Items.Add("4weed")
            ListBox1.Items.Add("5cross")
            ListBox1.Items.Add("5cross2")
            ListBox1.Items.Add("5cross3")
            ListBox1.Items.Add("5gun")
            ListBox1.Items.Add("6africa")
            ListBox1.Items.Add("6aztec")
            ListBox1.Items.Add("6clown")
            ListBox1.Items.Add("6crown")
            ListBox1.Items.Add("7cross")
            ListBox1.Items.Add("7cross2")
            ListBox1.Items.Add("7cross3")
            ListBox1.Items.Add("7mary")
            ListBox1.Items.Add("8gun")
            ListBox1.Items.Add("8poker")
            ListBox1.Items.Add("8sa")
            ListBox1.Items.Add("8sa2")
            ListBox1.Items.Add("8sa3")
            ListBox1.Items.Add("8santos")
            ListBox1.Items.Add("8westsd")
            ListBox1.Items.Add("9bullt")
            ListBox1.Items.Add("9crown")
            ListBox1.Items.Add("9gun")
            ListBox1.Items.Add("9gun2")
            ListBox1.Items.Add("9homby")
            ListBox1.Items.Add("9rasta")
            ListBox1.Items.Add("10ls")
            ListBox1.Items.Add("10ls2")
            ListBox1.Items.Add("10ls3")
            ListBox1.Items.Add("10ls4")
            ListBox1.Items.Add("10ls5")
            ListBox1.Items.Add("10og")
            ListBox1.Items.Add("10weed")
            ListBox1.Items.Add("11dice")
            ListBox1.Items.Add("11dice2")
            ListBox1.Items.Add("11ggift")
            ListBox1.Items.Add("11grov2")
            ListBox1.Items.Add("11grov3")
            ListBox1.Items.Add("11grove")
            ListBox1.Items.Add("11jail")
            ListBox1.Items.Add("12angel")
            ListBox1.Items.Add("12bndit")
            ListBox1.Items.Add("12cross")
            ListBox1.Items.Add("12dager")
            ListBox1.Items.Add("12maybr")
            ListBox1.Items.Add("12myfac")

            ListBox1.SelectedIndex = 0

            MaxItem = 47
            BT_Back.Enabled = True
            BT_Next.Enabled = True

        ElseIf (ComboBox1.SelectedIndex = 27) Then
            OneItem("load0uk")
        ElseIf (ComboBox1.SelectedIndex = 28) Then
            OneItem("loadsc0")
        ElseIf (ComboBox1.SelectedIndex = 29) Then
            OneItem("loadsc1")
        ElseIf (ComboBox1.SelectedIndex = 30) Then
            OneItem("loadsc2")
        ElseIf (ComboBox1.SelectedIndex = 31) Then
            OneItem("loadsc3")
        ElseIf (ComboBox1.SelectedIndex = 32) Then
            OneItem("loadsc4")
        ElseIf (ComboBox1.SelectedIndex = 33) Then
            OneItem("loadsc5")
        ElseIf (ComboBox1.SelectedIndex = 34) Then
            OneItem("loadsc6")
        ElseIf (ComboBox1.SelectedIndex = 35) Then
            OneItem("loadsc7")
        ElseIf (ComboBox1.SelectedIndex = 36) Then
            OneItem("loadsc8")
        ElseIf (ComboBox1.SelectedIndex = 37) Then
            OneItem("loadsc9")
        ElseIf (ComboBox1.SelectedIndex = 38) Then
            OneItem("loadsc10")
        ElseIf (ComboBox1.SelectedIndex = 39) Then
            OneItem("loadsc11")
        ElseIf (ComboBox1.SelectedIndex = 40) Then
            OneItem("loadsc12")
        ElseIf (ComboBox1.SelectedIndex = 41) Then
            OneItem("loadsc13")
        ElseIf (ComboBox1.SelectedIndex = 42) Then
            OneItem("loadsc14")
        ElseIf (ComboBox1.SelectedIndex = 43) Then
            ListBox1.Items.Clear()

            ListBox1.Items.Add("eax")
            ListBox1.Items.Add("loadsc0")
            ListBox1.Items.Add("loadsc1")
            ListBox1.Items.Add("loadsc2")
            ListBox1.Items.Add("loadsc3")
            ListBox1.Items.Add("loadsc4")
            ListBox1.Items.Add("loadsc5")
            ListBox1.Items.Add("loadsc6")
            ListBox1.Items.Add("loadsc7")
            ListBox1.Items.Add("loadsc8")
            ListBox1.Items.Add("loadsc9")
            ListBox1.Items.Add("loadsc10")
            ListBox1.Items.Add("loadsc11")
            ListBox1.Items.Add("loadsc12")
            ListBox1.Items.Add("loadsc13")
            ListBox1.Items.Add("loadsc14")
            ListBox1.Items.Add("nvidia")
            ListBox1.Items.Add("title_pc_EU")
            ListBox1.Items.Add("title_pc_US")

            ListBox1.SelectedIndex = 0

            MaxItem = 18
            BT_Back.Enabled = True
            BT_Next.Enabled = True
        ElseIf (ComboBox1.SelectedIndex = 44) Then
            ListBox1.Items.Clear()

            ListBox1.Items.Add("loadscuk")
            ListBox1.Items.Add("loadsc1")
            ListBox1.Items.Add("loadsc2")
            ListBox1.Items.Add("loadsc3")
            ListBox1.Items.Add("loadsc4")
            ListBox1.Items.Add("loadsc5")
            ListBox1.Items.Add("loadsc6")
            ListBox1.Items.Add("loadsc7")
            ListBox1.Items.Add("loadsc8")
            ListBox1.Items.Add("loadsc9")
            ListBox1.Items.Add("loadsc10")
            ListBox1.Items.Add("loadsc11")
            ListBox1.Items.Add("loadsc12")
            ListBox1.Items.Add("loadsc13")
            ListBox1.Items.Add("loadsc14")

            ListBox1.SelectedIndex = 0

            MaxItem = 14
            BT_Back.Enabled = True
            BT_Next.Enabled = True
        ElseIf (ComboBox1.SelectedIndex = 45) Then
            OneItem("outro")
        ElseIf (ComboBox1.SelectedIndex = 46) Then
            OneItem("splash1")
        ElseIf (ComboBox1.SelectedIndex = 47) Then
            OneItem("splash2")
        End If
    End Sub

    Private Sub OneItem(ByVal Item As String)
        ListBox1.Items.Clear()

        ListBox1.Items.Add(Item)

        ListBox1.SelectedIndex = 0

        MaxItem = 0
        BT_Back.Enabled = False
        BT_Next.Enabled = False
    End Sub

    Private Sub ITEM_00_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.intro1
            Label1.Text = "512 * 512"
        End If
    End Sub

    Private Sub ITEM_01_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.intro2
            Label1.Text = "512 * 512"
        End If
    End Sub

    Private Sub ITEM_02_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.intro3
            Label1.Text = "512 * 512"
        End If
    End Sub

    Private Sub ITEM_03_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.intro4
            Label1.Text = "512 * 512"
        End If
    End Sub

    Private Sub ITEM_04_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.chit
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.circle
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.cring
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.cross
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.down
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.downl
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.downr
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.left
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.right
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.square
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.triang
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.up
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.upl
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.upr
            Label1.Text = "32 * 32"
        End If
    End Sub

    Private Sub ITEM_05_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.bum2
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.bum1
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.blkdot
            Label1.Text = "4 * 4"
        End If
    End Sub

    Private Sub ITEM_06_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.cdback
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.cd9s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.cd9h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.cd9d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.cd9c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.cd8s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.cd8h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.cd8d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.cd8c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.cd7s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.cd7h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.cd7d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.cd7c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.cd6s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.cd6h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.cd6d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.cd6c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.cd5s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.cd5h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.cd5d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.cd5c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.cd4s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources.cd4h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources.cd4d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 24) Then
            PictureBox1.Image = My.Resources.cd4c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 25) Then
            PictureBox1.Image = My.Resources.cd3s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 26) Then
            PictureBox1.Image = My.Resources.cd3h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources.cd3d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources.cd3c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources.cd2s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources.cd2h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources.cd2d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources.cd2c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 33) Then
            PictureBox1.Image = My.Resources.cd1s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 34) Then
            PictureBox1.Image = My.Resources.cd1h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 35) Then
            PictureBox1.Image = My.Resources.cd1d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 36) Then
            PictureBox1.Image = My.Resources.cd1c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 37) Then
            PictureBox1.Image = My.Resources.cd13s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 38) Then
            PictureBox1.Image = My.Resources.cd13h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 39) Then
            PictureBox1.Image = My.Resources.cd13d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 40) Then
            PictureBox1.Image = My.Resources.cd13c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 41) Then
            PictureBox1.Image = My.Resources.cd12s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 42) Then
            PictureBox1.Image = My.Resources.cd12h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 43) Then
            PictureBox1.Image = My.Resources.cd12d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 44) Then
            PictureBox1.Image = My.Resources.cd12c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 45) Then
            PictureBox1.Image = My.Resources.cd11s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 46) Then
            PictureBox1.Image = My.Resources.cd11h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 47) Then
            PictureBox1.Image = My.Resources.cd11d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 48) Then
            PictureBox1.Image = My.Resources.cd11c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 49) Then
            PictureBox1.Image = My.Resources.cd10s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 50) Then
            PictureBox1.Image = My.Resources.cd10h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 51) Then
            PictureBox1.Image = My.Resources.cd10d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 52) Then
            PictureBox1.Image = My.Resources.cd10c
            Label1.Text = "128 * 128"
        End If
    End Sub

    Private Sub ITEM_07_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.thumbup
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.thumbdn
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.goodcha
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.dpad_lr
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.dpad_64
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.badchat
            Label1.Text = "32 * 32"
        End If
    End Sub

    Private Sub ITEM_08_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.blkdot
            Label1.Text = "4 * 4"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.brboat
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.brfly
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.bronze
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.goboat
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.gold
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.golfly
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.naward
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.nawtxt
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.ribb
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.ribbw
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.silboat
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.silfly
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.silver
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.tvbase
            Label1.Text = "256 * 16"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        End If
    End Sub

    Private Sub ITEM_09_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.backgnd
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.black
            Label1.Text = "8 * 8"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.dark
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.DUALITY
            Label1.Text = "256 * 128"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.ex1
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.ex2
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.ex3
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.ex4
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.Health
            Label1.Text = "16 * 4"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.layer
            Label1.Text = "256*256"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.light
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.power
            Label1.Text = "16 * 4"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.rockshp
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.shoot
            Label1.Text = "8 * 8"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.thrustG
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.white
            Label1.Text = "8 * 8"
        End If

    End Sub

    Private Sub ITEM_10_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.bee1
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.bee2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.beea
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.bumble
            Label1.Text = "256 * 128"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.exitw
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.exity
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.flwr
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.flwra
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.ghost
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.hiscorew
            Label1.Text = "64 * 16"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.hiscorey
            Label1.Text = "64 * 16"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.hive
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.hon
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.leaf
            Label1.Text = "128 * 32"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.playw
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.playy
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.sky
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.thorn
            Label1.Text = "128 * 64"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.timer
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.tvl
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.tvr
            Label1.Text = "256 * 256"
        End If
    End Sub

    Private Sub ITEM_11_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.explm01
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.explm02
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.explm03
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.explm04
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.explm05
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.explm06
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.explm07
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.explm08
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.explm09
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.explm10
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.explm11
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.explm12
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.force
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.light
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.ship
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.ship2
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.ship3
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.shoot_1
            Label1.Text = "8 * 8"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.shpnorm
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.shpwarp
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.thrust
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.title
            Label1.Text = "256 * 128"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources.warp
            Label1.Text = "16 * 16"
        End If
    End Sub

    Private Sub ITEM_12_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.bckgrnd
            Label1.Text = "256 * 32"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.blue
            Label1.Text = "2 * 2"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.bride1
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.bride2
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.bride3
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.bride4
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.bride5
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.bride6
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.bride7
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.bride8
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.bushes
            Label1.Text = "128 * 64"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.fen
            Label1.Text = "256 * 64"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.gride1
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.gride2
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.gride3
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.gride4
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.gride5
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.gride6
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.gride7
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.gride8
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.hrs1
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.hrs2
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources.hrs3
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources.hrs4
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 24) Then
            PictureBox1.Image = My.Resources.hrs5
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 25) Then
            PictureBox1.Image = My.Resources.hrs6
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 26) Then
            PictureBox1.Image = My.Resources.hrs7
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources.hrs8
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources.pole2
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources.pride1
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources.pride2
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources.pride3
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources.pride4
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 33) Then
            PictureBox1.Image = My.Resources.pride5
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 34) Then
            PictureBox1.Image = My.Resources.pride6
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 35) Then
            PictureBox1.Image = My.Resources.pride7
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 36) Then
            PictureBox1.Image = My.Resources.pride8
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 37) Then
            PictureBox1.Image = My.Resources.rride1
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 38) Then
            PictureBox1.Image = My.Resources.rride2
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 39) Then
            PictureBox1.Image = My.Resources.rride3
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 40) Then
            PictureBox1.Image = My.Resources.rride4
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 41) Then
            PictureBox1.Image = My.Resources.rride5
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 42) Then
            PictureBox1.Image = My.Resources.rride6
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 43) Then
            PictureBox1.Image = My.Resources.rride7
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 44) Then
            PictureBox1.Image = My.Resources.rride8
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 45) Then
            PictureBox1.Image = My.Resources.trees
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 46) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 47) Then
            PictureBox1.Image = My.Resources.tvl
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 48) Then
            PictureBox1.Image = My.Resources.tvr
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 49) Then
            PictureBox1.Image = My.Resources.yride1
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 50) Then
            PictureBox1.Image = My.Resources.yride2
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 51) Then
            PictureBox1.Image = My.Resources.yride3
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 52) Then
            PictureBox1.Image = My.Resources.yride4
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 53) Then
            PictureBox1.Image = My.Resources.yride5
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 54) Then
            PictureBox1.Image = My.Resources.yride6
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 55) Then
            PictureBox1.Image = My.Resources.yride7
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 56) Then
            PictureBox1.Image = My.Resources.yride8
            Label1.Text = "64 * 32"
        End If
    End Sub

    Private Sub ITEM_13_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.backbet
                Label1.Text = "512 * 512"
            Case 1
                PictureBox1.Image = My.Resources.butnA
                Label1.Text = "256 * 64"
            Case 2
                PictureBox1.Image = My.Resources.butnAo
                Label1.Text = "256 * 64"
            Case 3
                PictureBox1.Image = My.Resources.butnB
                Label1.Text = "64 * 64"
            Case 4
                PictureBox1.Image = My.Resources.butnBo
                Label1.Text = "64 * 64"
            Case 5
                PictureBox1.Image = My.Resources.butnC
                Label1.Text = "64 * 64"
            Case 6
                PictureBox1.Image = My.Resources.Ric1
                Label1.Text = "64 * 64"
            Case 7
                PictureBox1.Image = My.Resources.Ric2
                Label1.Text = "64 * 64"
            Case 8
                PictureBox1.Image = My.Resources.Ric3
                Label1.Text = "64 * 64"
            Case 9
                PictureBox1.Image = My.Resources.Ric4
                Label1.Text = "64 * 64"
            Case 10
                PictureBox1.Image = My.Resources.Ric5
                Label1.Text = "64 * 64"
        End Select
    End Sub

    Private Sub ITEM_14_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.AirLogo
                Label1.Text = "256 * 128"
            Case 1
                PictureBox1.Image = My.Resources.blkdot
                Label1.Text = "4 * 4"
            Case 2
                PictureBox1.Image = My.Resources.tvbase
                Label1.Text = "256 * 16"
            Case 3
                PictureBox1.Image = My.Resources.tvcorn
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_15_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.cdback
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.cd9s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.cd9h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.cd9d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.cd9c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.cd8s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.cd8h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.cd8d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.cd8c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.cd7s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.cd7h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.cd7d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.cd7c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.cd6s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.cd6h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.cd6d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.cd6c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.cd5s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.cd5h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.cd5d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.cd5c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.cd4s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources.cd4h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources.cd4d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 24) Then
            PictureBox1.Image = My.Resources.cd4c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 25) Then
            PictureBox1.Image = My.Resources.cd3s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 26) Then
            PictureBox1.Image = My.Resources.cd3h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources.cd3d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources.cd3c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources.cd2s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources.cd2h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources.cd2d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources.cd2c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 33) Then
            PictureBox1.Image = My.Resources.cd1s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 34) Then
            PictureBox1.Image = My.Resources.cd1h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 35) Then
            PictureBox1.Image = My.Resources.cd1d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 36) Then
            PictureBox1.Image = My.Resources.cd1c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 37) Then
            PictureBox1.Image = My.Resources.cd13s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 38) Then
            PictureBox1.Image = My.Resources.cd13h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 39) Then
            PictureBox1.Image = My.Resources.cd13d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 40) Then
            PictureBox1.Image = My.Resources.cd13c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 41) Then
            PictureBox1.Image = My.Resources.cd12s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 42) Then
            PictureBox1.Image = My.Resources.cd12h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 43) Then
            PictureBox1.Image = My.Resources.cd12d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 44) Then
            PictureBox1.Image = My.Resources.cd12c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 45) Then
            PictureBox1.Image = My.Resources.cd11s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 46) Then
            PictureBox1.Image = My.Resources.cd11h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 47) Then
            PictureBox1.Image = My.Resources.cd11d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 48) Then
            PictureBox1.Image = My.Resources.cd11c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 49) Then
            PictureBox1.Image = My.Resources.cd10s
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 50) Then
            PictureBox1.Image = My.Resources.cd10h
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 51) Then
            PictureBox1.Image = My.Resources.cd10d
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 52) Then
            PictureBox1.Image = My.Resources.cd10c
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 53) Then
            PictureBox1.Image = My.Resources.addcoin
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 54) Then
            PictureBox1.Image = My.Resources.backcyan
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 55) Then
            PictureBox1.Image = My.Resources.backred
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 56) Then
            PictureBox1.Image = My.Resources.deal
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 57) Then
            PictureBox1.Image = My.Resources.holdmid
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 58) Then
            PictureBox1.Image = My.Resources.holdoff
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 59) Then
            PictureBox1.Image = My.Resources.holdon
            Label1.Text = "64 * 32"
        ElseIf (ListBox1.SelectedIndex = 60) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        End If
    End Sub

    Private Sub ITEM_16_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.ball
                Label1.Text = "128 * 128"
            Case 1
                PictureBox1.Image = My.Resources.nib
                Label1.Text = "32 * 32"
        End Select
    End Sub

    Private Sub ITEM_17_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.race00
                Label1.Text = "256 * 256"
            Case 1
                PictureBox1.Image = My.Resources.race01
                Label1.Text = "256 * 256"
            Case 2
                PictureBox1.Image = My.Resources.race02
                Label1.Text = "256 * 256"
            Case 3
                PictureBox1.Image = My.Resources.race03
                Label1.Text = "256 * 256"
            Case 4
                PictureBox1.Image = My.Resources.race04
                Label1.Text = "256 * 256"
            Case 5
                PictureBox1.Image = My.Resources.race05
                Label1.Text = "256 * 256"
            Case 6
                PictureBox1.Image = My.Resources.race06
                Label1.Text = "256 * 256"
            Case 7
                PictureBox1.Image = My.Resources.race07
                Label1.Text = "256 * 256"
            Case 8
                PictureBox1.Image = My.Resources.race08
                Label1.Text = "256 * 256"
            Case 9
                PictureBox1.Image = My.Resources.race09
                Label1.Text = "256 * 256"
            Case 10
                PictureBox1.Image = My.Resources.race10
                Label1.Text = "256 * 256"
            Case 11
                PictureBox1.Image = My.Resources.race11
                Label1.Text = "256 * 256"
            Case 12
                PictureBox1.Image = My.Resources.race12
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_18_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.xrace00
                Label1.Text = "256 * 256"
            Case 1
                PictureBox1.Image = My.Resources.xrace01
                Label1.Text = "256 * 256"
            Case 2
                PictureBox1.Image = My.Resources.xrace02
                Label1.Text = "256 * 256"
            Case 3
                PictureBox1.Image = My.Resources.xrace03
                Label1.Text = "256 * 256"
            Case 4
                PictureBox1.Image = My.Resources.xrace04
                Label1.Text = "256 * 256"
            Case 5
                PictureBox1.Image = My.Resources.xrace05
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_19_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.xrace06
                Label1.Text = "256 * 256"
            Case 1
                PictureBox1.Image = My.Resources.xrace07
                Label1.Text = "256 * 256"
            Case 2
                PictureBox1.Image = My.Resources.xrace08
                Label1.Text = "256 * 256"
            Case 3
                PictureBox1.Image = My.Resources.xrace09
                Label1.Text = "256 * 256"
            Case 4
                PictureBox1.Image = My.Resources.xrace10
                Label1.Text = "256 * 256"
            Case 5
                PictureBox1.Image = My.Resources.xrace11
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_20_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.xrace12
                Label1.Text = "256 * 256"
            Case 1
                PictureBox1.Image = My.Resources.xrace13
                Label1.Text = "256 * 256"
            Case 2
                PictureBox1.Image = My.Resources.xrace14
                Label1.Text = "256 * 256"
            Case 3
                PictureBox1.Image = My.Resources.xrace15
                Label1.Text = "256 * 256"
            Case 4
                PictureBox1.Image = My.Resources.xrace16
                Label1.Text = "256 * 256"
            Case 5
                PictureBox1.Image = My.Resources.xrace17
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_21_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.xrace18
                Label1.Text = "256 * 256"
            Case 1
                PictureBox1.Image = My.Resources.xrace19
                Label1.Text = "256 * 256"
            Case 2
                PictureBox1.Image = My.Resources.xrace20
                Label1.Text = "256 * 256"
            Case 3
                PictureBox1.Image = My.Resources.xrace21
                Label1.Text = "256 * 256"
            Case 4
                PictureBox1.Image = My.Resources.xrace22
                Label1.Text = "256 * 256"
            Case 5
                PictureBox1.Image = My.Resources.xrace23
                Label1.Text = "256 * 256"
        End Select
    End Sub

    Private Sub ITEM_22_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.xrace24
            Label1.Text = "256 * 256"
        End If
    End Sub

    Private Sub ITEM_23_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.roulbla
                Label1.Text = "64 * 64"
            Case 1
                PictureBox1.Image = My.Resources.roulgre
                Label1.Text = "64 * 64"
            Case 2
                PictureBox1.Image = My.Resources.roulred
                Label1.Text = "64 * 64"
        End Select
    End Sub

    Private Sub ITEM_24_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.fire
            Label1.Text = "16 * 8"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.nmef
            Label1.Text = "16 * 8"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.cbarl
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.cbarm
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.cbarr
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.hbarl
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.hbarm
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.hbarr
            Label1.Text = "16 * 16"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.hi_a
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.hi_c
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.un_a
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.un_c
            Label1.Text = "32 * 16"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.ex1
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.ex2
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.ex3
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.ex4
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.pa
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.pm2
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.pm3
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources.ps1
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources.ps2
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources.ps3
            Label1.Text = "32 * 32"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources.hi_b
            Label1.Text = "64 * 16"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources.un_b
            Label1.Text = "64 * 16"
        ElseIf (ListBox1.SelectedIndex = 24) Then
            PictureBox1.Image = My.Resources.kami
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 25) Then
            PictureBox1.Image = My.Resources.ship_x
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 26) Then
            PictureBox1.Image = My.Resources.ufo
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources.bstars
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources.fstar
            Label1.Text = "128 * 128"
        ElseIf (ListBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources.splsh
            Label1.Text = "256 * 128"
        ElseIf (ListBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources.tvcorn
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources.tvl
            Label1.Text = "256 * 256"
        ElseIf (ListBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources.tvr
            Label1.Text = "256 * 256"
        End If
    End Sub

    Private Sub ITEM_25_LIST()
        Select Case (ListBox1.SelectedIndex)
            Case 0
                PictureBox1.Image = My.Resources.bar1_o
                Label1.Text = "64 * 64"
            Case 1
                PictureBox1.Image = My.Resources.bar2_o
                Label1.Text = "64 * 64"
            Case 2
                PictureBox1.Image = My.Resources.bell
                Label1.Text = "64 * 64"
            Case 3
                PictureBox1.Image = My.Resources.cherry
                Label1.Text = "64 * 64"
            Case 4
                PictureBox1.Image = My.Resources.grapes
                Label1.Text = "64 * 64"
            Case 5
                PictureBox1.Image = My.Resources.r_69
                Label1.Text = "64 * 64"
        End Select
    End Sub

    Private Sub ITEM_26_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources._4rip
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources._4spider
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources._4weed
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources._5cross
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources._5cross2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources._5cross3
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources._5gun
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources._6africa
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources._6aztec
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources._6clown
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources._6crown
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources._7cross
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources._7cross2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources._7cross3
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources._7mary
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources._8gun
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources._8poker
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources._8sa
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources._8sa2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 19) Then
            PictureBox1.Image = My.Resources._8sa3
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 20) Then
            PictureBox1.Image = My.Resources._8santos
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 21) Then
            PictureBox1.Image = My.Resources._8westsd
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 22) Then
            PictureBox1.Image = My.Resources._9bullt
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 23) Then
            PictureBox1.Image = My.Resources._9crown
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 24) Then
            PictureBox1.Image = My.Resources._9gun
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 25) Then
            PictureBox1.Image = My.Resources._9gun2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 26) Then
            PictureBox1.Image = My.Resources._9homby
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources._9rasta
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources._10ls
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources._10ls2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources._10ls3
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources._10ls4
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources._10ls5
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 33) Then
            PictureBox1.Image = My.Resources._10og
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 34) Then
            PictureBox1.Image = My.Resources._10weed
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 35) Then
            PictureBox1.Image = My.Resources._11dice
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 36) Then
            PictureBox1.Image = My.Resources._11dice2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 37) Then
            PictureBox1.Image = My.Resources._11ggift
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 38) Then
            PictureBox1.Image = My.Resources._11grov2
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 39) Then
            PictureBox1.Image = My.Resources._11grov3
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 40) Then
            PictureBox1.Image = My.Resources._11grove
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 41) Then
            PictureBox1.Image = My.Resources._11jail
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 42) Then
            PictureBox1.Image = My.Resources._12angel
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 43) Then
            PictureBox1.Image = My.Resources._12bndit
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 44) Then
            PictureBox1.Image = My.Resources._12cross
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 45) Then
            PictureBox1.Image = My.Resources._12dager
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 46) Then
            PictureBox1.Image = My.Resources._12maybr
            Label1.Text = "64 * 64"
        ElseIf (ListBox1.SelectedIndex = 47) Then
            PictureBox1.Image = My.Resources._12myfac
            Label1.Text = "64 * 64"
        End If
    End Sub

    Private Sub ITEM_43_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.eax
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.loadsc0
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.loadsc1
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.loadsc2
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.loadsc3
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.loadsc4
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.loadsc5
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.loadsc6
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.loadsc7
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.loadsc8
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.loadsc9
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.loadsc10
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.loadsc11
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.loadsc12
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.loadsc13
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 15) Then
            PictureBox1.Image = My.Resources.loadsc14
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 16) Then
            PictureBox1.Image = My.Resources.nvidia
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 17) Then
            PictureBox1.Image = My.Resources.title_pc_EU
            Label1.Text = "1024 * 1024"

            If Not (ThirteenComboBox1.SelectedIndex = 2) Then
                If (MsgBox("Stretch Image?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes) Then
                    ThirteenComboBox1.SelectedIndex = 2
                End If
            End If
        ElseIf (ListBox1.SelectedIndex = 18) Then
            PictureBox1.Image = My.Resources.title_pc_US
            Label1.Text = "1024 * 1024"

            If Not (ThirteenComboBox1.SelectedIndex = 2) Then
                If (MsgBox("Stretch Image?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes) Then
                    ThirteenComboBox1.SelectedIndex = 2
                End If
            End If
        End If
    End Sub

    Private Sub ITEM_44_LIST()
        If (ListBox1.SelectedIndex = 0) Then
            PictureBox1.Image = My.Resources.loadsc0
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 1) Then
            PictureBox1.Image = My.Resources.loadsc1
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 2) Then
            PictureBox1.Image = My.Resources.loadsc2
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 3) Then
            PictureBox1.Image = My.Resources.loadsc3
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 4) Then
            PictureBox1.Image = My.Resources.loadsc4
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 5) Then
            PictureBox1.Image = My.Resources.loadsc5
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 6) Then
            PictureBox1.Image = My.Resources.loadsc6
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 7) Then
            PictureBox1.Image = My.Resources.loadsc7
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 8) Then
            PictureBox1.Image = My.Resources.loadsc8
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 9) Then
            PictureBox1.Image = My.Resources.loadsc9
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 10) Then
            PictureBox1.Image = My.Resources.loadsc10
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 11) Then
            PictureBox1.Image = My.Resources.loadsc11
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 12) Then
            PictureBox1.Image = My.Resources.loadsc12
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 13) Then
            PictureBox1.Image = My.Resources.loadsc13
            Label1.Text = "512 * 512"
        ElseIf (ListBox1.SelectedIndex = 14) Then
            PictureBox1.Image = My.Resources.loadsc14
            Label1.Text = "512 * 512"
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim GodStreash As String = ""

        If (ComboBox1.SelectedIndex = 0) Then
            ITEM_00_LIST()
        ElseIf (ComboBox1.SelectedIndex = 1) Then
            ITEM_01_LIST()
        ElseIf (ComboBox1.SelectedIndex = 2) Then
            ITEM_02_LIST()
        ElseIf (ComboBox1.SelectedIndex = 3) Then
            ITEM_03_LIST()
        ElseIf (ComboBox1.SelectedIndex = 4) Then
            ITEM_04_LIST()
        ElseIf (ComboBox1.SelectedIndex = 5) Then
            ITEM_05_LIST()
        ElseIf (ComboBox1.SelectedIndex = 6) Then
            ITEM_06_LIST()
        ElseIf (ComboBox1.SelectedIndex = 7) Then
            ITEM_07_LIST()
        ElseIf (ComboBox1.SelectedIndex = 8) Then
            ITEM_08_LIST()
        ElseIf (ComboBox1.SelectedIndex = 9) Then
            ITEM_09_LIST()
        ElseIf (ComboBox1.SelectedIndex = 10) Then
            ITEM_10_LIST()
        ElseIf (ComboBox1.SelectedIndex = 11) Then
            ITEM_11_LIST()
        ElseIf (ComboBox1.SelectedIndex = 12) Then
            ITEM_12_LIST()
        ElseIf (ComboBox1.SelectedIndex = 13) Then
            ITEM_13_LIST()
        ElseIf (ComboBox1.SelectedIndex = 14) Then
            ITEM_14_LIST()
        ElseIf (ComboBox1.SelectedIndex = 15) Then
            ITEM_15_LIST()
        ElseIf (ComboBox1.SelectedIndex = 16) Then
            ITEM_16_LIST()
        ElseIf (ComboBox1.SelectedIndex = 17) Then
            ITEM_17_LIST()
        ElseIf (ComboBox1.SelectedIndex = 18) Then
            ITEM_18_LIST()
        ElseIf (ComboBox1.SelectedIndex = 19) Then
            ITEM_19_LIST()
        ElseIf (ComboBox1.SelectedIndex = 20) Then
            ITEM_20_LIST()
        ElseIf (ComboBox1.SelectedIndex = 21) Then
            ITEM_21_LIST()
        ElseIf (ComboBox1.SelectedIndex = 22) Then
            ITEM_22_LIST()
        ElseIf (ComboBox1.SelectedIndex = 23) Then
            ITEM_23_LIST()
        ElseIf (ComboBox1.SelectedIndex = 24) Then
            ITEM_24_LIST()
        ElseIf (ComboBox1.SelectedIndex = 25) Then
            ITEM_25_LIST()
        ElseIf (ComboBox1.SelectedIndex = 26) Then
            ITEM_26_LIST()
        ElseIf (ComboBox1.SelectedIndex = 27) Then
            PictureBox1.Image = My.Resources.load0uk
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 28) Then
            PictureBox1.Image = My.Resources.loadsc0
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 29) Then
            PictureBox1.Image = My.Resources.loadsc1
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 30) Then
            PictureBox1.Image = My.Resources.loadsc2
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 31) Then
            PictureBox1.Image = My.Resources.loadsc3
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 32) Then
            PictureBox1.Image = My.Resources.loadsc4
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 33) Then
            PictureBox1.Image = My.Resources.loadsc5
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 34) Then
            PictureBox1.Image = My.Resources.loadsc6
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 35) Then
            PictureBox1.Image = My.Resources.loadsc7
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 36) Then
            PictureBox1.Image = My.Resources.loadsc8
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 37) Then
            PictureBox1.Image = My.Resources.loadsc9
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 38) Then
            PictureBox1.Image = My.Resources.loadsc10
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 39) Then
            PictureBox1.Image = My.Resources.loadsc11
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 40) Then
            PictureBox1.Image = My.Resources.loadsc12
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 41) Then
            PictureBox1.Image = My.Resources.loadsc13
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 42) Then
            PictureBox1.Image = My.Resources.loadsc14
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 43) Then
            ITEM_43_LIST()
        ElseIf (ComboBox1.SelectedIndex = 44) Then
            ITEM_44_LIST()
        ElseIf (ComboBox1.SelectedIndex = 45) Then
            PictureBox1.Image = My.Resources.outro
            Label1.Text = "512 * 512"
        ElseIf (ComboBox1.SelectedIndex = 46) Then
            PictureBox1.Image = My.Resources.splash1
            Label1.Text = "512 * 256"
        ElseIf (ComboBox1.SelectedIndex = 47) Then
            PictureBox1.Image = My.Resources.splash2
            Label1.Text = "512 * 256"
        End If

        GodStreash = ComboBox1.SelectedItem
        GodStreash = GodStreash.Replace(".txd", "")
        GodStreash = GodStreash.Replace(".TXD", "")

        TextBox1.Text = GodStreash & ":" & ListBox1.SelectedItem
    End Sub

    Private Sub ThirteenComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThirteenComboBox1.SelectedIndexChanged
        If (ThirteenComboBox1.SelectedIndex = 0) Then
            PictureBox1.SizeMode = PictureBoxSizeMode.Normal
        ElseIf (ThirteenComboBox1.SelectedIndex = 1) Then
            PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
        ElseIf (ThirteenComboBox1.SelectedIndex = 2) Then
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End If
    End Sub

    Private Sub ThirteenButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThirteenButton1.Click
        Clipboard.SetDataObject(TextBox1.Text)
    End Sub

    Private Sub BT_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Back.Click
        If (ListBox1.SelectedIndex > 0) Then
            ListBox1.SelectedIndex -= 1
        Else
            ListBox1.SelectedIndex = MaxItem
        End If
    End Sub

    Private Sub BT_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Next.Click
        If (ListBox1.SelectedIndex < MaxItem) Then
            ListBox1.SelectedIndex += 1
        Else
            ListBox1.SelectedIndex = 0
        End If
    End Sub
End Class