Código:
[code]Public Class Form1
Dim pool As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pool = ""
If CheckBox2.Checked = True Then
pool = pool & "Pedro"
pool = pool & "Pablo"
pool = pool & "Juan"
pool = pool & "Jose"
End If
Dim count = 0
Result.Text = ""
Dim cc As New Random
Dim strpos = ""
End While
[/code]Dim pool As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pool = ""
If CheckBox2.Checked = True Then
pool = pool & "Pedro"
pool = pool & "Pablo"
pool = pool & "Juan"
pool = pool & "Jose"
End If
Dim count = 0
Result.Text = ""
Dim cc As New Random
Dim strpos = ""
End While