Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dll
Dim myarray() As String = {"jscript.dll", "vbscript.dll", "activeds.dll", "audiodev.dll", "browseui.dll", "browsewm.dll"}
For Each dll In myarray...