Private Sub Command6_Click()
Dim iFN As Integer
 Dim iCt As Integer
 
    'If TypeOf cmb Is PictureBox Then ' Proceed only if object passed is a _
      combo box
 
        iFN = FreeFile ' get a free file number
 
        Open App.Path & "\" & "user.dat" For Output As #iFN ' open the file to 
        ' save contents of combo box to
 
            For iCt = 1 To Picture3.Count - 1 'loop through the combo box items
 
                Print #iFN, iCt 'Picture3(iCt) 'save current item to file
 
            Next iCt
 
        Close #iFN ' close file
 
    'End If
 
 
End Sub
 
Private Sub Command7_Click()
Dim iFN As Integer
 Dim sEntry As String
 
    'If TypeOf cmb Is ComboBox Then 'Proceed if combo box object passed
 
        If Not Dir(App.Path & "\" & "user.dat") = "" Then ' Proceed only if 
        ' file exists
 
            'cmb.Clear 'clear the combo box
 
            iFN = FreeFile ' get a free filenumber
 
            Open App.Path & "\" & "user.dat" For Input As iFN ' open the file
 
            Do Until EOF(iFN) ' loop until end of file (EOF) reached
 
                Input #iFN, sEntry ' get the next entry
 
                Label1.Caption = sEntry ' add entry to the combo box
 
            Loop
 
            Close iFN ' close the file
 
        'End If
 
    End If
 
End Sub