Salve a tutti,

in vb6 con il codice qui sotto dal form1 carico una picture (autoresize) nel form2 (form a tutto
schermo) ogni 5 secondi in modo da ottenere una slideshow (presentazione) carina.
Non riesco tuttavia a centrare PICTURE1 nello schermo difatti inserendo il codice:

frm2.PICTURE1.Move (Screen.Width - frm2.PICTURE1..Width) \ 2, (Screen.Height - frm2.PICTURE1..Height) \ 2

all'interno di case in form1 o in change di picture1 del form2 le photo scompaiono. Come mai?

Un'ultima cosa, sapreste indicarmi un metodo veloce per caricare un file midi come sottofondo
musicale?

Un grazie di cuore a chi vorrà\saprà aiutarmi



CODICE FORM1:
-------------

Private Sub Timer1_Timer()
Select Case scelta
Case 1
frm2.PICTURE1.Picture = LoadPicture(App.Path & "\Presentazione1\" & numero & ".jpg")
'CENTRA NELLO SCHERMO:
frm2.PICTURE1.Move (Screen.Width - frm2.PICTURE1..Width) \ 2, (Screen.Height - frm2.PICTURE1..Height) \ 2
frm2.Show
Case 2
frm2.PICTURE1.Picture = LoadPicture(App.Path & "\Presentazione2\" & numero & ".jpg")
frm2.PICTURE1.Move (Screen.Width - frm2.PICTURE1..Width) \ 2, (Screen.Height - frm2.PICTURE1..Height) \ 2
frm2.Show
Case 3
MsgBox "In lavorazione!", vbExclamation, "Comando inesistente"
End Select
numero = numero + 1
End Sub



CODICE FORM2:
-------------

Private Sub Form_Load()
'full screen:
frm2.Width = Screen.Width
frm2.Height = Screen.Height
frm2.Left = 0
frm2.Top = 0
End Sub