Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sc As New Shell32.Shell()
        Dim input As Shell32.Folder = sc.NameSpace("C:\Users\Administrador\Desktop\Filmen_FFMPEG.zip")
        Dim output As Shell32.Folder = sc.NameSpace("C:\")
        output.CopyHere(input.Items, 4)
    End Sub
 
End Class
 

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New List(Of String)
        For x As Integer = 0 To 10 : a.Add(Get_Random_Number(1, 100)) : Next
 
        For Each f In a : MsgBox(f) : Next ' El número siempre es el mismo
 
    End Sub
 
    Public Function Get_Random_Number(ByVal min As Integer, ByVal max As Integer) As Integer
        Dim Rando As New Random
        Return Rando.Next(min, max)
    End Function
 
End Class

 IO.Directory.GetFiles(Directory, "*.exe, *.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe; *.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + "*.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.AltDirectorySeparatorChar + "*.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.DirectorySeparatorChar + "*.vb")

  Thread_Split.Start()
        While Not Thread_is_completed = True
            Application.DoEvents()
        End While

Arithmetic operation resulted in an overflow.