Display Random Images with Link


Public Class Form1

    Private images As New List(Of (ImagePath As String, Url As String))
    Private rnd As New Random()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        images.Add(("C:\www\Images\0.jpg", "https://link1.com"))
        images.Add(("C:\www\Images\2.jpg", "https://link2.com"))
        images.Add(("C:\www\Images\14.jpg", "https://link3.com"))

        ShowRandomImage()
    End Sub

    Private Sub ShowRandomImage()
        Dim index As Integer = rnd.Next(images.Count)
        Dim selected = images(index)

        PictureBox1.Image = Image.FromFile(selected.ImagePath)
        LinkLabel1.Text = "Click here"
        LinkLabel1.Tag = selected.Url
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim url As String = LinkLabel1.Tag.ToString()
        Process.Start(New ProcessStartInfo(url) With {.UseShellExecute = True})
    End Sub

End Class

Download 'Random Images.vb':

📥 Download random-images.vb