hy!
DANKE FÜR DIE HILFE!
hatte bereits selbst die antwort gefunden. funktionierte bei mir mit folgenden code!
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_Click()
Dim Result&, Buffer$
'Wert lesen
Buffer = Space$(32)
Result = GetPrivateProfileString("neu", "datei", "", _
Buffer, Len(Buffer), "c:\v.ini")
a = Left$(Buffer, Result)
MsgBox (a)
End Sub
@reemrev
hatte bereits deine zeile gehabt hat aber nicht mit dem kernel32 funktioniert und die datei kernel.dll hab ich nicht gehabt!
nochmals danke für die tipps!
mfg
little