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