Private Sub CmbRa_Click()

If List1.ListCount <= 0 Then
InitList
End If

Dim MyValue As Integer
Dim i As Integer

For i = 1 To 10
MyValue = Int(((List1.ListCount - 1) * Rnd) + 0)
txtTeams(i - 1).Text = List1.List(MyValue)
Randomize
List1.RemoveItem (MyValue)

Next i
End Sub
Private Sub Form_Load()

Randomize
InitList
Dim i As Integer
For i = 0 To 9
txtTeams(i).Text = GetSetting("Raffle", "Settings", "Text" & i, "")
Next i
End Sub

Private Sub InitList()
List1.Clear

List1.AddItem "sad"
List1.AddItem "ds"
List1.AddItem "sdf"
List1.AddItem "hgf"
List1.AddItem "dsf"
List1.AddItem "hgrf"
List1.AddItem "refd"
List1.AddItem "gf"
List1.AddItem "grt"
List1.AddItem "trr"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 0 To 9
SaveSetting "Raffle", "Settings", "Text" & i, txtTeams(i).Text
Next i

End
End Sub