visualizzazione immagine

Ciao, ho fatto un controllo che si basa su listbox e che dovrebbe visualizzare solo immagini. Nel metodo di apertura dell’immagine utilizzo Picture.Open sul file immagine che mi viene visualizzato capovolto, in windows ha altezza 1280 e larghezza 720, in Xojo altezza 720 e larghezza 1280, nell’anteprima di windows viene visualizzato correttamente. Utilizzo Xojo 2019r1, Mac visualizza immagine correttamente.

ecco il mio codice

If par_file = Nil Or par_file.Directory = True Then Exit

Dim pic As Picture = Picture.Open(par_file)
If pic.HasAlphaChannel Then
immagine = pic
Else
Dim result As New Picture(pic.Width, pic.Height)
result.Graphics.DrawPicture(pic, 0, 0)
immagine = result
End If

If immagine <> Nil Then
If par_ID > -1 Then
ID_img = par_ID
Else
ID_img = ID_img + 1
End If
Me.AddRow("")
Me.RowTag(Me.LastIndex) = ID_img
dict_immagine_path.Value(ID_img) = par_file.ShellPath
End If