Ho una finestra con un pulsante che serve a minimizzarla.
Prima di impostare la property windowstate richiamo questa sub per abbellire un po' le cose:
codice:
Public Sub AnimateWindowMinimize(objForm As Form)
    Dim lngDeskHwnd As Long
    Dim lngDeskHdc As Long
    Dim i As Long
    
    lngDeskHwnd = GetDesktopWindow()
    lngDeskHdc = GetDC(lngDeskHwnd)
    
    objForm.Visible = False
    DoEvents
    
    SetROP2 lngDeskHdc, R2_NOT

    MoveToEx lngDeskHdc, 100, 100, ByVal 0&
    
    For i = 1 To 300
        LineTo lngDeskHdc, 100 + i, 100 + i
        DoEvents
    Next i
    
    DeleteDC lngDeskHdc
    
    objForm.Visible = True
End Sub
La mia intenzione è creare un effetto di linee quando la form viene minimizzata (una paio di lineee fatte muovere per il desktop con qualche funzione matematica).
Naturalmente la sub che ho postato è solo uan prova e dovrebbe disegnare una manciata di righe... ma non funziona (non appare nulla a video).

Secondo voi??