.NET (Core and Framework)

Private Sub Check4Forms()<br />
<br />
        Dim myFiles() As String<br />
        myFiles = Directory.GetFiles(Application.StartupPath & "\...\")<br />
<br />
        Dim FilePath, FileName, FileExt, File As String<br />
        Dim myPath(), myFile() As String<br />
<br />
        For Each FilePath In myFiles<br />
<br />
            myPath = FilePath.Split("\")<br />
            FileName = myPath(myPath.GetUpperBound(0))<br />
            myFile = FileName.Split(".")<br />
            FileExt = myFile(myFile.GetUpperBound(0))<br />
            File = myFile(myFile.GetLowerBound(0))<br />
<br />
            Dim FButton As New System.Windows.Forms.Button<br />
<br />
            If File.StartsWith("F") And FileExt = "vb" Then<br />
<br />
                FButton.Text = File<br />
                FButton.Tag = File<br />
                Me.Panel1.Controls.Add(FButton)<br />
                FButton.Dock = DockStyle.Top<br />
<br />
                AddHandler FButton.Click, New System.EventHandler(AddressOf Me.ActivateFormOnTheFly)<br />
<br />
            End If<br />
<br />
        Next<br />
<br />
    End Sub<br />
<br />
    Public Sub ActivateFormOnTheFly(ByVal sender As Object, ByVal e As EventArgs)<br />
<br />
    End Sub