[Delirium]

В смысле добавить объекты? ПРограммно, чтобы при загрузке формы добавлялись объекты эти? А сразу нарисовать их не проще? Вы же добавляете дефолтные объекты.
А вообще, вот цитата с MSDN

The following code example adds two Control objects to the Control..::.ControlCollection of the derived class Panel. The example requires that you have created a Panel control and a Button control on a Form. When the button is clicked, two RadioButton controls are added to the panel's Control..::.ControlCollection. Visual Basic Copy Code ' Create two RadioButtons to add to the Panel. Dim RadioAddButton As RadioButton = New RadioButton() Dim RadioAddRangeButton As RadioButton = New RadioButton() ' Add controls to the Panel using the AddRange method. Private Sub AddRangeButton_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles AddRangeButton.Click ' Set the Text the RadioButtons will display. RadioAddButton.Text = "RadioAddButton" RadioAddRangeButton.Text = "RadioAddRangeButton" ' Set the appropriate location of RadioAddRangeButton. RadioAddRangeButton.Location = New System.Drawing.Point( _ RadioAddButton.Location.X, _ RadioAddButton.Location.Y + RadioAddButton.Height) ' Add the controls to the Panel. Panel1.Controls.AddRange(New Control() {RadioAddButton, RadioAddRangeButton}) End Sub

ДОбавляют 2 элемента, НО: объявляют их как Dim RadioAddButton As RadioButton = New RadioButton() и потом задают им свойства. Без этого, скорее всего, они не добавятся.

[Delirium]

Получилось?

[Uzvern]

Delirium, ну вроде бы да

[Uzvern]

Как в For Each можно перейти на следующий элемент? Наример мне ненужно записывать какое-то значение, и если оно обнаружено, то переходит на следующий.
вот например пытаюсь сделать обход System Volume Information, но она все-равно проскакивает

Код:

    Function GetFilesAndFolders(ByVal Folder As String) As String
        Dim StringBuilder As New System.Text.StringBuilder
        Dim FolderName As IO.DirectoryInfo

        StringBuilder.AppendLine(Folder)

        For Each Path As String In IO.Directory.GetDirectories(Folder)

            Try
                FolderName = My.Computer.FileSystem.GetDirectoryInfo(Folder)

                If FolderName.Name = "System Volume Information" Then
                    ChDir("..")
                    Continue For
                End If

                ChDir(Path)

                StringBuilder.AppendLine(GetFilesAndFolders(Path))
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Ошибка")
            End Try

        Next

        For Each File As String In IO.Directory.GetFiles(Folder)
            StringBuilder.AppendLine(File)
        Next

        Return StringBuilder.ToString
    End Function

[Delirium]

В смысле обход? Нужно именно поймать "System Volume Information" или пропустить его в обходе?
Протестировал код... Когда в качестве параметра функции пишу "C:\", начинается обход с корня диска и подвисает, точнее очень долго делает обход всех папок.
ЧТобы цикл зашел в нужную папку, прописал вот так:

If Path = Folder & "System Volume Information" then

вместо

If FolderName.Name = "System Volume Information" Then »

Только я не пойму, что дальше то сделать надо вам

[Uzvern]

Мне необходимо его наоборот пропустить!

[Admiral]

Uzvern, оно и будет пропускать если подкорректировать условия, как подсказал Delirium. Проверяется это очень просто добавлением строчки Print.Debug("FolderName.Name") после условия, что б видеть что оно сработало. Можно и до, будут отображаться все пути пройденные программой, это ещё наглядно будет показывать что программа не висит.
Очень хорошо что была найдена возможность добавлять свой пункт в контекстное меню.
Delirium по дефолту к данной папке (при условии использовании NTFS) доступ заказан даже админу вот по этому Uzvern потребовалось обойти эту папку.

[Uzvern]

Как можно открыть папку и выделить неоходимый файл?

[Admiral]

Что бы выделить файл, например boot.ini в корне диска C, необходим код следующего вида

Код:

Call Shell("Explorer.exe /n,/e,/select, C:\boot.ini", vbNormalFocus)

>>

[Uzvern]

Код:

Call

Что означает? Не первый раз уже вижу это слово в кодах, но так и не понял для чего же оно