VB Code:
  1. Private Sub Form_Load()
  2. Image1.Width = Screen.Width
  3. image1.Stretch = true
  4. End Sub