Private Sub Command1_Click()
Timer1.Enabled = '
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim a As Integer, e As Integer, h As Integer
Randomize
s = ""
For a = 1 To 30
e = Int(Rnd() * 52 + 1)
If e <= 26 Then
h = e + 64
Else
h = '
End If
c = '
s = s + c
Next a
List1.AddItem s
End Sub