[Originally posted by rcoltrane]
Im using the current code to do a Form "zoom" effect, but during the zooming, the image shows a lot of crap in the form screen area. Is there any way to remove this graphic glitches during the zoom? (note: Ive used the me.refresh but it only works over the last image and doesnt work during the zoom).
Heres the code Im talking about:
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Sub Form_Load()
AnimateWindow Me.hwnd, 900, &H10
Me.Refresh
End Sub
This is for zoom in. How can I do a zoom out using this same code? (for example, by exiting the program).