Hi, I have a form with a icon I'm trying to save that one icon here is the save code I have in my Module Name is
OpenSaveTest
OpenSaveTest
Code:
Public Sub SaveTest()
Dim SS As Integer
Dim m As Integer
SS = SaveSave
Open App.Path & "\Test\SaveIcon.txt" For Output As #SS
For m = 1 To IconCounter - 1
Print #SS, IconsPath(i)
Next
Close #SS
End Sub