Rem Sätt formuläret i pixeömode
Rem Lägg till Pico (Picturebox) med autoredrav, autosize och rem pixel mode
Sub Form_Load()
Pico.Picture=LOADPicture("MyPic.jpg") ' ange bildfilens namn
Msgbox "Vidd =" & Pico.Width " & höjd =" & Pico.Height &" pixels"
End Sub