dotNETportal.cz

Taky jsem něco takového řešil, já jsem to udělal trochu neelegantně, ale účel to plní:

Hlídám si MouseMove na PictureBoxu a při každém vyvolání spustím Timer s intervalem 1 sekundy. Pokud Timer doběhne, zobrazím si hlášku (nebo cokoliv jiného), pokud však ne (tzn. MouseMove se vyvolá znova, nestane se nic.

Private Sub PictureBox1_MouseMove() Handles PictureBox1.MouseMove
Timer1.Enabled = False ' stopneme Timer, když nestačil doběhnout
Timer1.Enabled = True ' zapneme Timer
End Sub

Private Sub Timer1_Tick() Handles Timer1.Tick
' pokud nebyl Timer1 vypnut, zobrazíme hlášku (je dobré ošetřit, aby se zobrazila jen jedna, ale pokud chcete vykreslovat, bude vykreslený Label působit tak, že se každou sekundu přesune na polohu myši (ta poloha je už na Vás))
MsgBox("Teď")
End Sub

To bude asi jedno z nejjednodušších řešení. Akorát ještě vypněte Timer při události MouseLeave, aby se časovač vypnul, pokud vyjedete myší úplně z dotyčné komponenty nebo formuláře.