Свойство Picture на формата?

[shanto]

зареждам графични изображения във формата чрез следната програмна конструкция:

Private Sub Form_Load()
List1.AddItem "Париж"
List1.AddItem "Лондон"
List1.AddItem "Виена"
List1.AddItem "Ню Йорк"
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
  Case 0
    Form2.Picture = LoadPicture("D:\DOKUMENTI\VB_Pictures\viena.jpg")
    Form2.Show
  Case 1
    Form2.Picture = LoadPicture("D:\DOKUMENTI\VB_Pictures\london.jpg")
    Form2.Show
  Case 2
    Form2.Picture = LoadPicture("D:\DOKUMENTI\VB_Pictures\New York.jpg")
    Form2.Show
  Case 3
    Form2.Picture = LoadPicture("D:\DOKUMENTI\VB_Pictures\Paris.jpg")
    Form2.Show
End Select
End Sub

като използвам ListBox.
Проблема е следния - не можах да открия във свойствата на формата как да задам при зареждане на графични изображения със различна големина (например 640х480 и 1024х760), във формата, изображенията да ми се преоразмеряват съобразно размера на формата.Защото иначе не могат да се виждат целите изображения или ако са много малки остава празно място отстрани.
Ако някой може да помогне?

[Tommorow]

Няма да стане така. Картината за бекграунд на формата няма опции за рисайз. Зареди изображение и контролирай неговата ширина и височина така:

Private Sub Form2_Load()
Image1.Stretch = True
Image1.Picture = LoadPicture("D:\DOKUMENTI\VB_Pictures\New York.jpg")
End Sub

Private Sub Form2_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

[shanto]

Благодаря @Tommorow.
ще пробвам твоя начин.