Assuming the logo is just like "C:\Windows\Picture.jpg"...
Code:
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
Public Function ReadINI(strsection As String, strkey As String, strfullpath As String) As String
Dim strbuffer As String
Let strbuffer$ = String$(750, Chr$(0&))
Let ReadINI$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function
'Hope you know where the logo bmp's root location is stored in cuz I sure don't :p
'Either try this:
X = ReadINI("System", "Logo", "C:\Window\System.ini")
Picture1.Picture = LoadPicture("" & X & "")
'Or this:
Picture1.Picture = LoadPicture(ReadINI("System.ini", "Logo", "C:\Window\System.ini"))