[just.coder]

تفضل اخى هذا الكود البسيط لكن يجب ان يكون

ملحوظة يجب ان يكون ال build action ف جميع الملفات الرسورس بقيمة Embedded Resource

كود :

Imports System.Reflection
Imports System.Reflection.Assembly
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim trd As New System.Threading.Thread(AddressOf load)
        trd.Start()
    End Sub
    Private Sub load()
        For Each file As String In GetExecutingAssembly.GetManifestResourceNames
            file = Replace(file, My.Application.Info.AssemblyName & ".", "_")
            Dim str() As String
            str = file.Split(".")
            Dim fg As String
            fg = str(0)
            System.Threading.Thread.Sleep(4000)
            PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(fg), Image)
        Next
    End Sub
End Class

[just.coder]

تفضل اخى هذا الكود البسيط لكن يجب ان يكون

ملحوظة يجب ان يكون ال build action ف جميع الملفات الرسورس بقيمة Embedded Resource

كود :

Imports System.Reflection
Imports System.Reflection.Assembly
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim trd As New System.Threading.Thread(AddressOf load)
        trd.Start()
    End Sub
    Private Sub load()
        For Each file As String In GetExecutingAssembly.GetManifestResourceNames
            file = Replace(file, My.Application.Info.AssemblyName & ".", "_")
            Dim res As Boolean = True
            If file.Contains(".gif") Then
            ElseIf file.Contains(".bmp") Then
            ElseIf file.Contains(".jpg") Then
            ElseIf file.Contains(".jpeg") Then
            ElseIf file.Contains(".png") Then
            Else
                res = False
            End If
            If res = True Then
                Dim str() As String
                str = file.Split(".")
                Dim fg As String
                fg = str(0)
                System.Threading.Thread.Sleep(4000)
                PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(fg), Image)
            End If
          
        Next
    End Sub
End Class