I put this in my code:

In General Declaration:
Code:
Dim eee As String
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPriviteProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Sub connected to my Form Load sub
Code:
Public Sub Load()
X = 1
rrr = GetPrivateProfileString("BigMoney", "Value", 0, Temp, Len(Temp), "BigMoney.ini")
For X = 1 To Temp
rrr = GetPrivateProfileString(X, "Name", 0, Temp2, Len(Temp2), "BigMoney.ini")
rrr = GetPrivateProfileString(X, "Score", 0, Temp3, Len(Temp3), "BigMoney.ini")
List1.AddItem (Temp2 & " - " & Temp3)
Next X
End Sub
It Returns Just the Temp2 Value in the List Box. And if I put Temp3 First it just returns the Temp3 value in the list box. What I am saying is it wont let anything go after it.
HELp