怎么把INI文件里的资料显示在VB上

Private Declare Function GetPrivateProfileString 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

Private Sub Form_Load()

    Dim Ret As String, NC As Long

    Ret = String(255, 0)

    NC = GetPrivateProfileString("Group1", "Server1", "Default", Ret, 255, app.path & "1.ini")

    If NC <> 0 Then Ret = Left$(Ret, NC)

    list1.AddItem Ret

End Sub