[Sniper.ps]

وعليكم السلام ورحمة الله وبركاته

أخي الكريم افتح مشروع جديد وضع الادوات كما في الصورة

ثم استخدم الكود التالي

كود :

Imports System.IO

Public Class Form1
    Dim myFiles As List(Of FileInfo)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer1.Stop()
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            RandomImage(FolderBrowserDialog1.SelectedPath.ToString)
            If Val(TextBox1.Text) > 0 Then
                Timer1.Interval = Val(TextBox1.Text) * 1000
            Else
                Timer1.Interval = 1000
            End If
            Timer1.Start()
        End If
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        RandomImage(FolderBrowserDialog1.SelectedPath.ToString)
    End Sub


    Sub RandomImage(Path As String)
        Dim myRandom As New Random
        myFiles = New DirectoryInfo(Path).GetFiles("*.*").ToList
        Dim Img = From File In myFiles Where File.Extension = ".png" Or File.Extension = ".jpg" Or File.Extension = ".gif" Or File.Extension = ".bmp" Select File.FullName
        Dim RandomNumber As Integer = myRandom.Next(0, Img.Count - 1)
        PictureBox1.Image = Image.FromFile(Img(RandomNumber).ToString)
    End Sub
End Class

وفقك الله