Imports System.IO Public Class Form20 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click langfr() End Sub Sub langfr() If ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 36 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 120 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 180 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 240 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 300 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 360 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 420 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 480 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 540 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 660 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 720 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 780 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 840 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 900 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 960 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1020 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1080 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1140 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1260 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1320 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1380 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1440 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1500 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1560 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1620 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1680 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1740 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1860 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1920 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1980 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2040 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2100 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2160 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2220 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2280 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2340 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2460 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2520 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2580 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2640 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2700 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2760 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2820 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2880 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2940 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3060 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3120 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3180 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3240 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3300 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3360 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3420 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3480 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3540 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 36 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 120 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 180 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 240 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 300 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 360 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 420 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 480 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 540 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 660 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 720 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 780 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 840 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 900 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 960 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1020 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1080 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1140 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1260 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1320 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1380 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1440 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1500 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1560 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1620 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1680 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1740 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1860 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1920 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1980 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2040 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2100 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2160 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2220 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2280 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2340 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2460 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2520 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2580 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2640 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2700 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2760 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2820 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2880 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2940 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3060 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3120 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3180 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3240 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3300 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3360 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3420 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3480 Me.Close() ElseIf ComboBox1.SelectedItem = "" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3540 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "0" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3660 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3720 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3780 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3840 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3900 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3960 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4020 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4080 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4140 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4200 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4260 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4320 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4380 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4440 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4500 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4560 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4620 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4680 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4740 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4800 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4860 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4920 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 4980 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5040 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5100 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5160 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5220 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5280 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5340 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5400 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5460 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5520 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5580 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5640 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5700 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5760 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5820 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5880 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 5940 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6000 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6060 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6120 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6180 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6240 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6300 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6360 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6420 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6480 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6540 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6600 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6660 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6720 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6780 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6840 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6900 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 6960 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7020 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7080 Me.Close() ElseIf ComboBox1.SelectedItem = "1" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7140 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "0" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7200 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7200 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7260 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7320 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7380 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7440 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7500 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7560 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7620 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7680 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7740 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7800 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7860 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7920 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 7980 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8040 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8100 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8160 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8220 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8280 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8340 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8400 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8460 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8520 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8580 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8640 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8700 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8760 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8820 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8880 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 8940 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9000 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9060 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9120 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9180 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9240 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9300 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9360 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9420 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9480 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9540 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9600 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9660 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9720 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9780 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9840 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9900 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 9960 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10020 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10080 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10140 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10200 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10260 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10320 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10380 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10440 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10500 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10560 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10620 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10680 Me.Close() ElseIf ComboBox1.SelectedItem = "2" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10740 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10800 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "0" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10800 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10860 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10920 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 10980 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11040 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11100 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11160 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11220 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11280 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11340 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11400 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11460 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11520 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11580 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11640 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11700 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11760 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11820 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11880 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 11940 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12000 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12060 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12120 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12180 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12240 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12300 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12360 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12420 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12480 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12540 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12600 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12660 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12720 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12780 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12840 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12900 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 12960 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13020 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13080 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13140 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13200 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13260 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13320 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13380 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13440 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13500 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13560 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13620 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13680 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13740 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13800 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13860 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13920 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 13980 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14040 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14100 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14160 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14220 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14280 Me.Close() ElseIf ComboBox1.SelectedItem = "3" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14340 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14400 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "0" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14400 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "1" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14460 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "2" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14520 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "3" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14580 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "4" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14640 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "5" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14700 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "6" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14760 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "7" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14820 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "8" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14880 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "9" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 14940 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "10" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15000 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "11" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15060 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "12" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15120 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "13" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15180 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "14" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15240 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "15" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15300 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "16" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15360 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "17" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15420 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "18" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15480 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "19" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15540 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "20" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15600 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "21" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15660 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "22" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15720 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "23" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15780 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "24" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15840 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "25" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15900 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "26" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 15960 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "27" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16020 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "28" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16080 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "29" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16140 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "30" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16200 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "31" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16260 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "32" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16320 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "33" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16380 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "34" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16440 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "35" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16500 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "36" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16560 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "37" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16620 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "38" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16680 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "39" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16740 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "40" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16800 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "41" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16860 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "42" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16920 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "43" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 16980 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "44" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17040 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "45" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17100 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "46" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17160 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "47" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17220 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "48" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17280 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "49" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17340 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "50" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17400 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "51" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17460 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "52" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17520 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "53" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17580 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "54" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17640 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "55" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17700 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "56" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17760 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "57" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17820 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "58" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17880 Me.Close() ElseIf ComboBox1.SelectedItem = "4" And ComboBox2.SelectedItem = "59" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 17940 Me.Close() ElseIf ComboBox1.SelectedItem = "0" And ComboBox2.SelectedItem = "0" Then Form12.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 Me.Close() Else MsgBox("Vous devez sélectionner au moins une minute", MsgBoxStyle.Information) End If End Sub Private Sub Form20_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim lines1a() As String = File.ReadAllLines(théme) If lines1a(0) = 2 Then Me.BackColor = Color.FromArgb(64, 64, 64) Button1.BackColor = Color.FromArgb(64, 64, 64) Button1.ForeColor = Color.White Label1.ForeColor = Color.White Label2.ForeColor = Color.White ComboBox1.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.ForeColor = Color.White ComboBox2.BackColor = Color.FromArgb(64, 64, 64) ComboBox2.ForeColor = Color.White ElseIf lines1a(0) = 3 Then Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Else End If End Sub End Class