防止重载多个实例的实用源代码(Prevent Multiple Instances of a 32-bit VB Application)（VB or VB.NET）

VB.Net查找文件的实例 Public Class Form1 查找文件 Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click Dim MyDir As String = Me.textBox1.Text Dim MyFiles = GetFiles(MyDir) Dim MyStartDate As D