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