Hi, What im trying to do is click a command button and have all of the text on the form that has the command button get saved onto another form that looks just like it but is blank with no text.
This is what i have for the save click event so far:

Private Sub cmdSave_Click()
Dim Filenum As Integer
On Error GoTo ErrHandler
Filenum = FreeFile
dlgFile.Filter = "all files(*.*)|*.*|Form Files(*.frm)|*.frm"
dlgFile.FilterIndex = 2
dlgFile.ShowSave
strTheFileName = dlgFile.FileName
Open strTheFileName For Output As #Filenum
Print #Filenum, lstPolicy.Text
Close #Filenum
blnSaved = True
Exit Sub
ErrHandler:
Exit Sub
End Sub

With this code i get a save screen to pop up but when i try to save it nothing happens no information is saved onto a form. Can anyone help me? Does this make any sense at all?

-Flaw