Dim sFile As String
Dim sPath As String
 
sPath = App.Path & "\data\skins\" & mySkinFolder & "\"
sFile = GetIniString("SETTINGS", "topbar-left", vbNullString, mySkinFile)
If sFile <> "" And Dir$(sPath & sFile) <> "" Then
  pic_left.Picture = LoadPicture(sPath & sFile) 
Else
  pic_Left.Picture = LoadPicture()
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de