[vb6] "advanced" number generator source

[Violent_J]

Public Sub xSaveList(Filename As String, List As ListBox)
    On Error Resume Next
    Dim lngSave As Long
        If Filename$ = "" Then Exit Sub
    Open Filename$ For Output As #1
    For lngSave& = 0 To List.ListCount - 1
    Print #1, lstnum.List(lngSave&)
    Next lngSave&
    Close #1
End Sub




Private Sub cmdstart_Click()
    Dim x As Integer
    Do Until x = txtcount.Text
    Randomize
    Number = Int(txtnumber.Text * Rnd)
    lstnum.AddItem Str$(Number)
    x = x + 1
    DoEvents
    Loop
End Sub

Private Sub cmdsave_Click()
    CD.DialogTitle = "Save Listbox"
    CD.InitDir = App.Path
    CD.Flags = &H4
    CD.Filter = "Text Files (*.txt)|*.txt"
    CD.ShowSave
    Call xSaveList(CD.Filename, lstnum)
End Sub

Private Sub cmdclear_Click()
    lstnum.Clear
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim frmTemp As Form
    For Each frmTemp In Forms
        Unload frmTemp
        Set frmTemp = Nothing
    Next
    End
End Sub