Public Class Form1

    Private Sub Ekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            OpenFileDialog1.ShowDialog()
            If OpenFileDialog1.Filter = "JPG *.jpg|*.jpg" Then
                ListBox1.Items.Add(OpenFileDialog1.FileName)
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Goster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ListBox1.Items <> "" Then
            Timer1.Enabled = True
            PictureBox1.Image = System.Drawing.Image.FromFile(ListBox1.Items)
        End If
    End Sub
End Class