Visual Basic

If Options.ShowDialog() = Windows.Forms.DialogResult.OK Then<br />
If radiobutton1.checked = true then<br />
picMain.image = picA.image<br />
End if<br />
If radiobutton2.checked = true then<br />
picMain.image = picB.image<br />
End if<br />
End if

marshmayllow wrote:

I put the code in the btnOK_click event

IF options.dialogresult = windows.forms.dialogresult.OK Then

If radiobutton1.checked = true then
picMain.image = picA.image
End if
If radiobutton2.checked = true then
picMain.image = picB.image
End if
End If

Dim optionsForm As New OptionsForm
If optionsForm.ShowDialog() = DialogResult.Ok Then
    If optionsForm.radiobutton1.checked Then
        picMain.image = picA.image
    End if

    If radiobutton2.checked = true then
        picMain.image = picB.image
    End if
End If

The FSO model is contained in the Scripting type library, which is located in the file Scrrun.dll. If you don't already have a reference to it, you can create one.

To create a reference to the Scripting type library (Scrrun.dll) 

1. On the Project menu, click Add Reference, and then click the COM tab. 
2. Choose Microsoft Scripting Runtime from the Component Name list, and then click Select. 

You can now use the Object Browser to view the FSO model's objects, collections, properties, methods, events, and constants. 

Imports System.Io
.
.
.
Public Shared Function GetFileCount(ByVal folderPath As String) As Integer
    If Not Directory.Exists(folderPath) Then
        Throw New DirectoryNotFoundException("The specified path was not found.")
    End If

    Dim filenames As String()
    filenames = Directory.GetFiles(folderPath)
    Return filenames.Length
End Function

<br />
Imports System.IO<br />
<br />
<br />
Private Function GetFileCount(Byval path as String) as Integer<br />
        Dim dirInfo As New IO.DirectoryInfo(path)<br />
        Dim files() As FileInfo = dirInfo.GetFiles()<br />
        return files.GetUpperBound(0) + 1<br />
End Function<br />