Thanks for the replys
Deside and Use Createobject and load the gif from dll in listview
Deside and Use Createobject and load the gif from dll in listview
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim hLibrary As Long, hFind As Long
Dim hGif As Long
hLibrary = LoadLibrary(App.Path + "\Flags.dll")
If hLibrary = 0 Then
MsgBox "Failed to load the specified library with error code " & Err.LastDllError
Exit Sub
End If
hFind = FindResource(hLibrary, "#111", "CUSTOM")
If hFind = 0 Then
MsgBox "Failed to find Resource with error code " & Err.LastDllError
Exit Sub
End If
hGif = LoadResource(hLibrary, hFind)
If hGif = 0 Then
MsgBox "Failed to load the specified resource with error code " & Err.LastDllError
Exit Sub
End If