Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub ChangeCaption ( FormHwnd as long , new_Caption as String ) On Error Resume Next Dim lb As Long, pa As Long lb = LoadLibrary("user32") pa = GetProcAddress(lb, "SetWindowTextA") CallWindowProc pa, FormHWnd, new_Caption, ByVal 0&, ByVal 0& FreeLibrary lb End Sub