Save Multiple Lists [RESOLVED]

ok i have a number of lists on my form and i only wana have one save button that will save all the lists in the same text file.

VB Code:

Dim x As Integer
For x = 0 To List1.ListCount - 1
  Open "C:/List.txt" For Append As #1
    Print #1, List1.List(x)
  Close #1
Next x

i have this which is ok but im not sure how to make it for all my lists. I have 7 lists all together. Any help welcomed. Thank you.

VB Code:

Dim ctl As Control
Dim x As Integer
 
Open "C:/List.txt" For Append As #1
 
For Each ctl In Controls
    If Typeof ctl Is Listbox Then
        For x = 0 To ctl.ListCount - 1
            Print #1, ctl.List(x)
        Next x
    End If
Next
 
Close #1

thank you martinless do you have any idea how i would make the text file save in the same folder that the program was in ??

also wot im i doing wrong with this code?

VB Code:

Private Sub Label9_Click()
 
If Form1.Frame1.Visible = True Then
    On Error Resume Next
    With CommonDialog1
    .CancelError = True
    .Filter = "Text Files (*.txt)|*.txt|"
    .ShowOpen
    End With
    Call SaveLoadListbox(List1, CommonDialog1.FileName, "load")
End If
 
If Form2.Frame1.Visible = True Then
    On Error Resume Next
    With CommonDialog1
    .CancelError = True
    .Filter = "Text Files (*.txt)|*.txt|"
    .ShowOpen
    End With
    Call SaveLoadListbox(List2, CommonDialog1.FileName, "load")
End If
 
End Sub

something to do with my If's because when i run the program and click frame1 and load it makes me choose the list twice. Probably because i got this code messed up but i can't see where.

lmao i c wot i did wrong above. but does any1 have any idea how to edit "MartinLiss" code above to make the text file same in the same folder as the program ??

Open App.Path & "\List.txt" For Append As #1