Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim img As New Bitmap("C:\discs.bmp")
PictureBox1.Image = img
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
StretchPic()
End Sub
Private Sub StretchPic()
' Stretch the picture to fit the control.
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
' Load the picture into the control.
' You should replace the bold image
' in the sample below with an icon of your own choosing.
PictureBox1.Image = Image.FromFile("C:\discs.bmp")
End Sub
End Class