Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte projekt jazyka a vložte nasledujúci riadok v hornej časti funkcia , ktorá volá " SetFocus : " On Error GoTo FocusErr 
 2 
 Vytvorte štítok na spodnej časti funkcie , píše nasledovné : . 
 
 FocusDone : 
 
 exit Function 
 3 
 Vytvorte ďalší štítok pod " FocusDone , " píše nasledovné : 
 
 FocusErr : 
 
 Ak err.number = -2147467259 Potom 
 
 Pokračovať 
 
 endif . 
 
 je vaše aplikácie životopis na túto chybu , kým sa skutočne objavia ovládacie opakovaním pokusu o " SetFocus " volanie . Uložte projekt a postaviť ho pomocou menu " Nástroje " vo vašej aplikácii .