[VB6] Picture di una Form

[Pestilence]

Salve sto provando invano a far cambiare l'immagine di sfondo di una Form.

il codice che uso è

Form1.Picture = LoadPicture(App.Path & "\Sfondo.jpg")

fino a qui diciamo tutto ok xkè effettivamente l'immagine la legge ma non la sovrascrive, per far si che venga sovrascritta devo ridurre a icona e reingrandire la Form.
Ho provato in questo modo :

Form1.Picture = LoadPicture(App.Path & "\Sfondo.jpg")
Form1.WindowState = 0
Form1.WindowState = 2

ma non è il massimo da vedere che una finestra viene ridotta e ingrandita.

Sono praticamente certo che mi serva un AutoRedraw, ma ovviamente non so come si applichi ad una Form....

Attendo risposte

[SimoneVB]

Ciao,
strano che si verifichi un problema simile: facendo
Form1.Picture = LoadPicture(FileName)
o
Set Form1.Picture = LoadPicture(FileName)

l'immagine dovrebbe venire caricata automaticamente.
Prova a fare un refresh del form.

In alternativa, puoi fare un ridisegno del form facendo

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_NCPAINT As Long = &H85

Private Sub Command1_Click()

    Set Me.Picture = LoadPicture(FileName)
    SendMessage Me.hwnd, WM_NCPAINT, 0, ByVal 0
End Sub

[Pestilence]

Il Refreh non funziona probabilmente xkè è un MDIForm, il codice non l'ho usato ma grazie lo stesso

Ho fatto una cosa brutta ma funziona

Private Sub Command1_Click()
MDIForm1.Picture = LoadPicture(App.Path & "\Sfondo.jpg")
MDIForm1.Visible = False
MDIForm1.Visible = True
End Sub

è brutto ma arrivo al mio obiettivo

TNX