Secondo me dovresti usare un timer.
Lo imposti con l'intervallo =1 (1 millesecondo) e controlli il windowState:

Private Sub Timer1_Timer()
if form1.windowstate=1 then
.....
end if
End Sub

Spero di esserti stato utile!
Ciao