Option Explicit On
 
Module Module4
 
    Public Declare Ansi Function GetPrivateProfileString Lib "kernel32" Alias _
      "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, ByVal lpKeyName As Object, ByVal _
    lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As _
    String) As Integer
 
    Public MyINIFile As String = Application.StartupPath & "\" & _
      System.IO.Path.GetFileNameWithoutExtension( _
      My.Application.Info.AssemblyName) & ".ini"
 
 Sub Test()
        Dim sValue As String
        sValue = GetIniString("Start", "Stand", 1, MyINIFile, 256)
 End sub
 
 
    Public Function GetIniString(ByVal section As String, ByVal titel As _
      String, ByVal handicap As String, _
                                 ByVal INIFile As String, Optional ByVal nSize _
                                 As Integer = 256) As String
        '
        ' Read INI file
        '
        Dim lResult As Long
        Dim sValue As String
 
        sValue = Space$(nSize)
        lResult = GetPrivateProfileString(section, titel, handicap, sValue, _
          nSize, INIFile)
        GetIniString = Left$(sValue, lResult)
        ''
    End Function
 
End Module