Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal _
  lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _
ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _
ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Any, ByVal wParam _
As Any, ByVal lParam As Any) As Long
 
Public Function RunFunction(hwnd As Long, library As String, funktion As _
  String) As Boolean
On Error Resume Next
Dim lb As Long, pa As Long
lb = LoadLibrary(library)
pa = GetProcAddress(lb, funktion)
'Beispiel zum verändern der Titelleiste
Call CallWindowProc(ByVal pa, ByVal hwnd, ByVal "Moin!", ByVal 0&, ByVal 0&)
'Wird ausgeführt schmiert aber danach ab.
FreeLibrary lb
End Function

Man kann nie genug wissen!

Man kann nie genug wissen!