Private Sub gene_Click()
Dim a1, a2, a3, a4, a5, a6 As String
Dim a7, a8, a9, a10, a11, a12 As String
Dim a13, a14, a15, a16, a17, a18 As String
Dim a19, a20, a21, a22, a23, a24 As String
Dim sel As Integer
Dim sel1 As Integer
Dim sel2 As Integer
Dim sel3 As Integer
a1 = "WPD800-50238-41232-75723"
a2 = "WPD800-54638-25132-53861"
a3 = "WPD800-50238-41232-75723"
a4 = "WPD800-57137-70532-93537"
a5 = "WPD800-52438-68532-93631"
a6 = "WPD800-52034-44132-55923"
a7 = "1192-1848-5709-9274-6046-4654"
a8 = "1192-1138-5709-9274-6046-4692"
a9 = "1192-1456-0538-8705-9702-0460"
a10 = "1192-1526-0538-8705-9702-0410"
a11 = "1302-1469-3459-6581-2371-7962"
a12 = "1192-1613-4695-6386-5005-6201"
a13 = "1192-1413-8739-4724-1366-4303"
a14 = "1192-1749-2186-1073-9238-2383"
a15 = "1192-1591-8491-6198-0195-9233"
a16 = "1192-1908-4186-9627-5230-5056"
a17 = "1192-1549-8302-3599-4260-9754"
a18 = "1192-1781-7943-8458-8323-0874"
a19 = "1192-1972-8606-1333-6454-0893"
a20 = "1192-1141-3450-7098-5264-3425"
a21 = "1192-1041-0065-6044-4789-3927"
a22 = "1192-1583-2725-2984-6187-4475"
a23 = "1192-1249-7500-6777-3904-8601"
a24 = "1192-1008-3123-1732-8483-9249"
If combo1.Text = "" = True Then
MsgBox "Debe Seleccionar Algun Producto."
ElseIf combo1.Text = "Dreamweaver 8" Then
sel = Int(Rnd() * 6)
Select Case sel
Case 0
serial.Text = a1
Case 1
serial.Text = a2
Case 2
serial.Text = a3
Case 3
serial.Text = a4
Case 4
serial.Text = a5
Case 5
serial.Text = a6
End Select
ElseIf combo1.Text = "Dreamweaver cs3" Then
sel1 = Int(Rnd() * 6)
Select Case sel1
Case 0
serial.Text = a7
Case 1
serial.Text = a8
Case 2
serial.Text = a9
Case 3
serial.Text = a10
Case 4
serial.Text = a11
Case 5
serial.Text = a12
End Select
ElseIf combo1.Text = "Dreamweaver cs4" Then
sel2 = Int(Rnd() * 6)
Select Case sel2
Case 0
serial.Text = a13
Case 1
serial.Text = a14
Case 2
serial.Text = a15
Case 3
serial.Text = a16
Case 4
serial.Text = a17
Case 5
serial.Text = a18
End Select
ElseIf combo1.Text = "Dreamweaver cs5" Then
sel3 = Int(Rnd() * 6)
Select Case sel3
Case 0
serial.Text = a19
Case 1
serial.Text = a20
Case 2
serial.Text = a21
Case 3
serial.Text = a22
Case 4
serial.Text = a23
Case 5
serial.Text = a24
End Select
End If
End Sub