Aqui está a resolução para o meu problemas: Private Sub CombiProjekt_AfterUpdate() Dim sn, sn1 As Variant Dim Rw As Variant Dim Projektnummer As St...

Bom depois de algum pensamento aqui encontrei a solução: Adicionei estes campos: SendMessage GetWindow(hwndIcon, GW_OWNER), WM_SETICON, ICON_SMALL, ...