hi
TinkerBear,
according to Sawatzky's suggestion you can save the info in an .ini file. Your program will read/write it whenever needed. To do this you need to use API function. Don't worry, it's easy;-)
put this code into General_Declarations section:
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileStringByKeyName Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
this is code to write into .ini file:
Public Sub WriteAppINIFile(sSection As String, sKeyName As String, sValue As String, sFileName As String)
WritePrivateProfileString sSection, sKeyName, sValue, sFileName
End Sub
this is code to read from .ini file:
Public Function ReadAppINIFile(sSection As String, sKeyName As String, sDefaultValue As String, sFileName As String) As String
Dim sBufferINI As String
Dim xLong As Long
Dim lReturnVal As Long
sBufferINI = String$(128, 0)
xLong = 199
lReturnVal = GetPrivateProfileStringByKeyName(sSection, sKeyName, sDefaultValue, sBufferINI, xLong, sFileName)
If lReturnVal > 0 Then
ReadAppINIFile = Left$(sBufferINI, lReturnVal)
Else
ReadAppINIFile = sDefaultValue
End If
End Function
play with it and have fun.
Good luck