If Operators.CompareString(Me.ComboBox1.Text, "Ahri", False) = 0 Then
Me.TextBox1.Text = "Talon, LeBlanc, Swain, Annie"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Akali", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Garen, Rumble, Renekton"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Alistar", False) = 0 Then
Me.TextBox1.Text = "Janna, Vayne, Cho'Gath, Lulu"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Amumu", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Dr. Mundo, Olaf, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Anivia", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Kassadin, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Annie", False) = 0 Then
Me.TextBox1.Text = "Brand, Orianna, Morgana, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ashe", False) = 0 Then
Me.TextBox1.Text = "Ezreal, Kha'Zix, Graves, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Blitzcrank", False) = 0 Then
Me.TextBox1.Text = "Thresh, Alistar, Leona, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Brand", False) = 0 Then
Me.TextBox1.Text = "Kassadin, Galio, Fizz, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Caitlyn", False) = 0 Then
Me.TextBox1.Text = "Sivir, Kog'Maw, Blitzcrank, Varus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Cassiopeia", False) = 0 Then
Me.TextBox1.Text = "Galio, LeBlanc, Talon, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Cho'Gath", False) = 0 Then
Me.TextBox1.Text = "Warwick, Vayne, Kog'Maw, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Corki", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Draven, Kog'Maw, Urgot"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Darius", False) = 0 Then
Me.TextBox1.Text = "Kayle, Yorick, Jayce, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Diana", False) = 0 Then
Me.TextBox1.Text = "Mordekaiser, Irelia, Cho'Gath, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Draven", False) = 0 Then
Me.TextBox1.Text = "Varus, Thresh, Blitzcrank, Caitlyn"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Dr. Mundo", False) = 0 Then
Me.TextBox1.Text = "Kog'Maw, Tristana, Miss Fortune, Fizz"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Elise", False) = 0 Then
Me.TextBox1.Text = "Kassadin, Yorick, Mordekaiser, Malzahar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Evelynn", False) = 0 Then
Me.TextBox1.Text = "Ryze, Kassadin, Mordekaiser, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ezreal", False) = 0 Then
Me.TextBox1.Text = "Draven, Miss Fortune, Caitlyn, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fiddlesticks", False) = 0 Then
Me.TextBox1.Text = "Janna, Alistar, Diana, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fiora", False) = 0 Then
Me.TextBox1.Text = "Jax, Malphite, Pantheon, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fizz", False) = 0 Then
Me.TextBox1.Text = "Ryze, Elise, Mordekaiser, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Galio", False) = 0 Then
Me.TextBox1.Text = "Udyr, Talon, Janna, Vladimir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Gangplank", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Fiora, Udyr, Irelia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Garen", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Pantheon, Nidalee"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Gragas", False) = 0 Then
Me.TextBox1.Text = "Fizz, Mordekaiser, Ahri, Swain"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Graves", False) = 0 Then
Me.TextBox1.Text = "Sivir, Caitlyn, Urgot, Miss Fortune"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Hecarim", False) = 0 Then
Me.TextBox1.Text = "Nasus, Sejuani, Warwick, Cho'Gath"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Heimerdinger", False) = 0 Then
Me.TextBox1.Text = "Syndra, Zed, Nunu, Ziggs"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Irelia", False) = 0 Then
Me.TextBox1.Text = "Olaf, Udyr, Pantheon, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Janna", False) = 0 Then
Me.TextBox1.Text = "Sivir, Sona, Lulu, Graves"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jarvan IV", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Jax, Garen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jax", False) = 0 Then
Me.TextBox1.Text = "Malphite, Singed, Elise, Garen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jayce", False) = 0 Then
Me.TextBox1.Text = "Yorick, Pantheon, Nidalee, Ahri"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Karma", False) = 0 Then
Me.TextBox1.Text = "Veigar, Nami, Katarina, Karthus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Karthus", False) = 0 Then
Me.TextBox1.Text = "Soraka, Kassadin, Fizz, Veigar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kassadin", False) = 0 Then
Me.TextBox1.Text = "Talon, Pantheon, Gangplank, Sion"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Katarina", False) = 0 Then
Me.TextBox1.Text = "Diana, Fiddlesticks, Vi, Alistar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kayle", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Anivia, Elise, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kennen", False) = 0 Then
Me.TextBox1.Text = "Janna, Ryze, Swain, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kha'Zix", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Pantheon, Yorick, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kog'Maw", False) = 0 Then
Me.TextBox1.Text = "Blitzcrank, Akali, LeBlanc, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "LeBlanc", False) = 0 Then
Me.TextBox1.Text = "Galio, Sion, Fizz, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lee Sin", False) = 0 Then
Me.TextBox1.Text = "Trundle, Udyr, Garen, Renekton"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Leona", False) = 0 Then
Me.TextBox1.Text = "Alistar, Lulu, Janna, Morgana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lulu", False) = 0 Then
Me.TextBox1.Text = "Soraka, Sivir, Caitlyn, Sona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lux", False) = 0 Then
Me.TextBox1.Text = "Talon, Fizz, Kassadin, Zed"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Malphite", False) = 0 Then
Me.TextBox1.Text = "Rumble, Cho'Gath, Yorick, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Malzahar", False) = 0 Then
Me.TextBox1.Text = "Gangplank, Galio, LeBlanc, Lux"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Maokai", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Dr. Mundo, Lee Sin, Shaco"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zyra", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Talon, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zilean", False) = 0 Then
Me.TextBox1.Text = "Morgana, Karma, Galio, Kha'Zix"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ziggs", False) = 0 Then
Me.TextBox1.Text = "Leblanc, Talon, Fizz, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zed", False) = 0 Then
Me.TextBox1.Text = "Singed, Kayle, Wukong, Rumble"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Yorick", False) = 0 Then
Me.TextBox1.Text = "Cho'gath, Nunu, Trundle, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Xin Zhao", False) = 0 Then
Me.TextBox1.Text = "Malphite, Jax, Pantheon, Volibear"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Xerath", False) = 0 Then
Me.TextBox1.Text = "Ahri, Fizz, LeBlanc, Kassadin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Wukong", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Darius, Garen, Olaf"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Warwick", False) = 0 Then
Me.TextBox1.Text = "Kayle, Yorick, Olaf, Udyr"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Volibear", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Kennen, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vladimir", False) = 0 Then
Me.TextBox1.Text = "Swain, Fiddlesticks, Xin Zhao, Malzahar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Viktor", False) = 0 Then
Me.TextBox1.Text = "Talon, Fizz, LeBlanc, Tristana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vi", False) = 0 Then
Me.TextBox1.Text = "Jax, Riven, Pantheon, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Veigar", False) = 0 Then
Me.TextBox1.Text = "Ryze, Talon, Fizz, Galio"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vayne", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Quinn, Draven, Corki"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Varus", False) = 0 Then
Me.TextBox1.Text = "Graves, Blitzcrank, Sivir, Tristana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Urgot", False) = 0 Then
Me.TextBox1.Text = "Soraka, Nami, Sivir, Irelia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Udyr", False) = 0 Then
Me.TextBox1.Text = "Ashe, Teemo, Trundle, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Twitch", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Corki, Draven, Lulu"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Twisted Fate", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Nocturne, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tryndamere", False) = 0 Then
Me.TextBox1.Text = "Teemo, Rammus, Malphite, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Trundle", False) = 0 Then
Me.TextBox1.Text = "Twitch, Sona, Kennen, Heimerdinger"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tristana", False) = 0 Then
Me.TextBox1.Text = "Corki, Draven, Diana, Caitlyn"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tresh", False) = 0 Then
Me.TextBox1.Text = "Alistar, Lulu, Ezreal, Leona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Teemo", False) = 0 Then
Me.TextBox1.Text = "Yorick, Pantheon, Rumble, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Taric", False) = 0 Then
Me.TextBox1.Text = "Sivir, Lulu, Nami, Morgana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Talon", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Yorick, Pantheon, Riven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Syndra", False) = 0 Then
Me.TextBox1.Text = "Fizz, Talon, Kassadin, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Swain", False) = 0 Then
Me.TextBox1.Text = "Viktor, Galio, Fizz, Cassiopeia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Soraka", False) = 0 Then
Me.TextBox1.Text = "Miss Fortune, Tristana, Blitzcrank, Varus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sona", False) = 0 Then
Me.TextBox1.Text = "Blitzcrank, Leona, Thresh, Draven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Skarner", False) = 0 Then
Me.TextBox1.Text = "Morgana, Ashe, Shyvana, Olaf"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sivir", False) = 0 Then
Me.TextBox1.Text = "Vayne, Draven, Kha'Zix, Corki"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sion", False) = 0 Then
Me.TextBox1.Text = "Morgana, Teemo, Jax, Mordekaiser"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Singed", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Kayle, Jayce"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shyvana", False) = 0 Then
Me.TextBox1.Text = "Olaf, Yorick, Teemo, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shen", False) = 0 Then
Me.TextBox1.Text = "Yorick, Warwick, Jayce, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shaco", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Riven, Olaf, Warwick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sejuani", False) = 0 Then
Me.TextBox1.Text = "Quinn, Morgana, Shyvana, Tryndamere"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ryze", False) = 0 Then
Me.TextBox1.Text = "Cassiopeia, Xerath, Anivia, Brand"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rumble", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Xin Zhao, Galio"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Riven", False) = 0 Then
Me.TextBox1.Text = "Garen, Olaf, Elise, Kennen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rengar", False) = 0 Then
Me.TextBox1.Text = "Jax, Fiora, Pantheon, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Renekton", False) = 0 Then
Me.TextBox1.Text = "Elise, Garen, Malphite, Ryze"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rammus", False) = 0 Then
Me.TextBox1.Text = "Trundle, Shyvana, Olaf, Dr.Mundo"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Quinn", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Varus, Miss Fortune, Draven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Poppy", False) = 0 Then
Me.TextBox1.Text = "Olaf, Darius, Teemo, Kennen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Pantheon", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Udyr, Shen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Orianna", False) = 0 Then
Me.TextBox1.Text = "LeBlanc, Syndra, Diana, Zed"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Olaf", False) = 0 Then
Me.TextBox1.Text = "Elise, Yorick, Kennen, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nunu", False) = 0 Then
Me.TextBox1.Text = "Sona, Soraka, Sivir, Janna"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nocturne", False) = 0 Then
Me.TextBox1.Text = "Olaf, Shyvana, Udyr, Karma"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nidalee", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Akali, Xin Zhao, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nautilus", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Hecarim, Udyr, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nasus", False) = 0 Then
Me.TextBox1.Text = "Teemo, Riven, Rumble, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nami", False) = 0 Then
Me.TextBox1.Text = "Lulu, Ezreal, Fizz, Leona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Morgana", False) = 0 Then
Me.TextBox1.Text = "Talon, Mordekaiser, Fizz, Vladimir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Mordekaiser", False) = 0 Then
Me.TextBox1.Text = "Garen, Zyra, Cassiopeia, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Miss Fortune", False) = 0 Then
Me.TextBox1.Text = "Tristana, Taric, Draven, Thresh"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Maître Yi", False) = 0 Then
Me.TextBox1.Text = "Jax, Cho'gath, Rammus"
End If