Simple Password Generator

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.RadioButton2.Checked
			If flag Then
				Dim random As Random = New Random()
				Dim num As Integer = random.[Next](0, 12)
				Dim num2 As Integer = random.[Next](0, 12)
				Dim num3 As Integer = random.[Next](0, 12)
				Dim num4 As Integer = random.[Next](0, 12)
				Dim num5 As Integer = random.[Next](0, 12)
				Dim num6 As Integer = random.[Next](0, 12)
				Dim num7 As Integer = random.[Next](0, 12)
				Dim num8 As Integer = random.[Next](0, 12)
				Dim num9 As Integer = random.[Next](0, 12)
				Dim num10 As Integer = random.[Next](0, 12)
				Dim num11 As Integer = random.[Next](0, 12)
				Dim num12 As Integer = random.[Next](0, 12)
				Dim num13 As Integer = random.[Next](0, 12)
				Dim text As String = ""
				Dim text2 As String = ""
				Dim text3 As String = ""
				Dim text4 As String = ""
				flag = (num = 1)
				Dim text5 As String
				If flag Then
					text5 = "A"
				Else
					flag = (num = 2)
					If flag Then
						text5 = "Q"
					Else
						text5 = "C"
					End If
				End If
				flag = (num2 = 1)
				If flag Then
					text = "B"
				Else
					flag = (num2 = 2)
					If flag Then
						text = "S"
					Else
						flag = (num2 = 3)
						If flag Then
							text = "g"
						Else
							flag = (num2 = 4)
							If flag Then
								text = "q"
							Else
								flag = (num2 = 5)
								If flag Then
									text = "I"
								Else
									flag = (num2 = 6)
									If flag Then
										text = "2"
									Else
										flag = (num2 = 7)
										If flag Then
											text = "7"
										Else
											flag = (num2 = 8)
											If flag Then
												text = "4"
											Else
												flag = (num2 = 9)
												If flag Then
													text = "6"
												Else
													flag = (num2 = 10)
													If flag Then
														text = "1"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num3 = 1)
				Dim text6 As String
				If flag Then
					text6 = "R"
				Else
					flag = (num3 = 2)
					If flag Then
						text6 = "S"
					Else
						text6 = "L"
					End If
				End If
				flag = (num4 = 1)
				Dim text7 As String
				If flag Then
					text7 = "N"
				Else
					flag = (num4 = 2)
					If flag Then
						text7 = "K"
					Else
						text7 = "M"
					End If
				End If
				flag = (num5 = 1)
				If flag Then
					text2 = "N"
				Else
					flag = (num5 = 2)
					If flag Then
						text2 = "K"
					Else
						flag = (num5 = 3)
						If flag Then
							text2 = "h"
						Else
							flag = (num5 = 4)
							If flag Then
								text2 = "j"
							Else
								flag = (num5 = 5)
								If flag Then
									text2 = "O"
								Else
									flag = (num5 = 6)
									If flag Then
										text2 = "1"
									Else
										flag = (num5 = 7)
										If flag Then
											text2 = "8"
										Else
											flag = (num5 = 8)
											If flag Then
												text2 = "3"
											Else
												flag = (num5 = 9)
												If flag Then
													text2 = "5"
												Else
													flag = (num5 = 10)
													If flag Then
														text2 = "2"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num6 = 1)
				Dim text8 As String
				If flag Then
					text8 = "L"
				Else
					flag = (num6 = 2)
					If flag Then
						text8 = "K"
					Else
						text8 = "P"
					End If
				End If
				flag = (num7 = 1)
				If flag Then
					text3 = "N"
				Else
					flag = (num7 = 2)
					If flag Then
						text3 = "d"
					Else
						flag = (num7 = 3)
						If flag Then
							text3 = "A"
						Else
							flag = (num7 = 4)
							If flag Then
								text3 = "s"
							Else
								flag = (num7 = 5)
								If flag Then
									text3 = "V"
								Else
									flag = (num7 = 6)
									If flag Then
										text3 = "2"
									Else
										flag = (num7 = 7)
										If flag Then
											text3 = "5"
										Else
											flag = (num7 = 8)
											If flag Then
												text3 = "6"
											Else
												flag = (num7 = 9)
												If flag Then
													text3 = "8"
												Else
													flag = (num7 = 10)
													If flag Then
														text3 = "9"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num8 = 1)
				Dim text9 As String
				If flag Then
					text9 = "R"
				Else
					flag = (num8 = 2)
					If flag Then
						text9 = "T"
					Else
						text9 = "Y"
					End If
				End If
				flag = (num9 = 1)
				If flag Then
					text4 = "U"
				Else
					flag = (num9 = 2)
					If flag Then
						text4 = "Y"
					End If
				End If
				flag = (num10 = 1)
				Dim text10 As String
				If flag Then
					text10 = "N"
				Else
					flag = (num10 = 2)
					If flag Then
						text10 = "F"
					Else
						text10 = "z"
					End If
				End If
				flag = (num11 = 1)
				Dim text11 As String
				If flag Then
					text11 = "M"
				Else
					flag = (num11 = 2)
					If flag Then
						text11 = "V"
					Else
						text11 = "n"
					End If
				End If
				flag = (num12 = 1)
				Dim text12 As String
				If flag Then
					text12 = "B"
				Else
					flag = (num12 = 2)
					If flag Then
						text12 = "p"
					Else
						text12 = "E"
					End If
				End If
				flag = (num13 = 1)
				Dim text13 As String
				If flag Then
					text13 = "Y"
				Else
					flag = (num13 = 2)
					If flag Then
						text13 = "q"
					Else
						text13 = "F"
					End If
				End If
				Me.TextBox1.Text = String.Concat(New String()() = { text5, text, text6, text7, text2, text8, text3, text9, text4, text10, text11, text12, text13 })
			End If
			flag = Me.RadioButton1.Checked
			If flag Then
				Dim random2 As Random = New Random()
				Dim num14 As Integer = random2.[Next](0, 12)
				Dim num15 As Integer = random2.[Next](0, 12)
				Dim num16 As Integer = random2.[Next](0, 12)
				Dim num17 As Integer = random2.[Next](0, 12)
				Dim num18 As Integer = random2.[Next](0, 12)
				Dim num19 As Integer = random2.[Next](0, 12)
				Dim num20 As Integer = random2.[Next](0, 12)
				Dim num21 As Integer = random2.[Next](0, 12)
				Dim num22 As Integer = random2.[Next](0, 12)
				Dim num23 As Integer = random2.[Next](0, 12)
				Dim num24 As Integer = random2.[Next](0, 12)
				Dim num25 As Integer = random2.[Next](0, 12)
				Dim num26 As Integer = random2.[Next](0, 12)
				Dim text14 As String = ""
				Dim text15 As String = ""
				Dim text16 As String = ""
				Dim text17 As String = ""
				flag = (num14 = 1)
				Dim text18 As String
				If flag Then
					text18 = "A"
				Else
					flag = (num14 = 2)
					If flag Then
						text18 = "Q"
					Else
						text18 = "C"
					End If
				End If
				flag = (num15 = 1)
				If flag Then
					text14 = "B"
				Else
					flag = (num15 = 2)
					If flag Then
						text14 = "S"
					Else
						flag = (num15 = 3)
						If flag Then
							text14 = "g"
						Else
							flag = (num15 = 4)
							If flag Then
								text14 = "q"
							Else
								flag = (num15 = 5)
								If flag Then
									text14 = "I"
								Else
									flag = (num15 = 6)
									If flag Then
										text14 = "f"
									Else
										flag = (num15 = 7)
										If flag Then
											text14 = "R"
										Else
											flag = (num15 = 8)
											If flag Then
												text14 = "D"
											Else
												flag = (num15 = 9)
												If flag Then
													text14 = "s"
												Else
													flag = (num15 = 10)
													If flag Then
														text14 = "Q"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num16 = 1)
				Dim text19 As String
				If flag Then
					text19 = "R"
				Else
					flag = (num16 = 2)
					If flag Then
						text19 = "S"
					Else
						text19 = "L"
					End If
				End If
				flag = (num17 = 1)
				Dim text20 As String
				If flag Then
					text20 = "N"
				Else
					flag = (num17 = 2)
					If flag Then
						text20 = "K"
					Else
						text20 = "M"
					End If
				End If
				flag = (num18 = 1)
				If flag Then
					text15 = "N"
				Else
					flag = (num18 = 2)
					If flag Then
						text15 = "K"
					Else
						flag = (num18 = 3)
						If flag Then
							text15 = "h"
						Else
							flag = (num18 = 4)
							If flag Then
								text15 = "j"
							Else
								flag = (num18 = 5)
								If flag Then
									text15 = "O"
								Else
									flag = (num18 = 6)
									If flag Then
										text15 = "w"
									Else
										flag = (num18 = 7)
										If flag Then
											text15 = "F"
										Else
											flag = (num18 = 8)
											If flag Then
												text15 = "v"
											Else
												flag = (num18 = 9)
												If flag Then
													text15 = "Z"
												Else
													flag = (num18 = 10)
													If flag Then
														text15 = "x"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num19 = 1)
				Dim text21 As String
				If flag Then
					text21 = "L"
				Else
					flag = (num19 = 2)
					If flag Then
						text21 = "K"
					Else
						text21 = "P"
					End If
				End If
				flag = (num20 = 1)
				If flag Then
					text16 = "N"
				Else
					flag = (num20 = 2)
					If flag Then
						text16 = "d"
					Else
						flag = (num20 = 3)
						If flag Then
							text16 = "A"
						Else
							flag = (num20 = 4)
							If flag Then
								text16 = "s"
							Else
								flag = (num20 = 5)
								If flag Then
									text16 = "V"
								Else
									flag = (num20 = 6)
									If flag Then
										text16 = "F"
									Else
										flag = (num20 = 7)
										If flag Then
											text16 = "g"
										Else
											flag = (num20 = 8)
											If flag Then
												text16 = "q"
											Else
												flag = (num20 = 9)
												If flag Then
													text16 = "V"
												Else
													flag = (num20 = 10)
													If flag Then
														text16 = "p"
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				End If
				flag = (num21 = 1)
				Dim text22 As String
				If flag Then
					text22 = "R"
				Else
					flag = (num21 = 2)
					If flag Then
						text22 = "T"
					Else
						text22 = "Y"
					End If
				End If
				flag = (num22 = 1)
				If flag Then
					text17 = "U"
				Else
					flag = (num22 = 2)
					If flag Then
						text17 = "Y"
					End If
				End If
				flag = (num23 = 1)
				Dim text23 As String
				If flag Then
					text23 = "U"
				Else
					flag = (num23 = 2)
					If flag Then
						text23 = "T"
					Else
						text23 = "z"
					End If
				End If
				flag = (num24 = 1)
				Dim text24 As String
				If flag Then
					text24 = "B"
				Else
					flag = (num24 = 2)
					If flag Then
						text24 = "P"
					Else
						text24 = "M"
					End If
				End If
				flag = (num25 = 1)
				Dim text25 As String
				If flag Then
					text25 = "j"
				Else
					flag = (num25 = 2)
					If flag Then
						text25 = "s"
					Else
						text25 = "R"
					End If
				End If
				flag = (num26 = 1)
				Dim text26 As String
				If flag Then
					text26 = "G"
				Else
					flag = (num26 = 2)
					If flag Then
						text26 = "V"
					Else
						text26 = "q"
					End If
				End If
				Me.TextBox1.Text = String.Concat(New String()() = { text18, text14, text19, text20, text15, text21, text16, text22, text17, text23, text24, text25, text26 })
			End If
		End Sub