[VB6] Problema col caricamento dei file .INI

[rescueme]

Quando cerco di caricare le impostazioni da un file .ini (al cui interno ci sono delle impostazioni) ottengo il seguente errore (num. 453): "Can't find DLL entry point GetPrivateprofileStringA in kernel32"
Perché? Che devo fare per risolverlo?

Nella sezione "Generale" del codice VB ho messo la seguente dichiarazione:

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


e il codice del pulsante che dovrebbe caricare le impostazioni è il seguente:

Private Sub cmdCarica_Click()

Dim ValoreDiRitorno As Long
Dim NomeFile
NomeFile = App.Path & "\settings.ini"
Dim StringaDiRitorno As String * 50
ValoreDiRitorno = GetPrivateProfilestring(txtSezione, _
txtChiave, NomeFile, StringaDiRitorno, Len(StringaDiRitorno), _
NomeFile)

If ValoreDiRitorno = 0 Then
MsgBox "C'è stato un errore!", vbExclamation
Else
txtValore.Text = Trim(StringaDiRitorno)
End If

End Sub

Non so come fare per risolvere il problema!
Grazie a chi saprà darmi la soluzione!!

[MauroD]

Private Declare Function GetPrivateProfilestr ing Lib "kernel" 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

Prova cosi

[rescueme]

Mi scrive "File not found: kernel"

Help!!

[xegallo]

ovvio la dll è kernel32.dll prova a fare start -> esegui e scrivi

regsvr32 percorso dll