Visual Basic

Public Class Form1 'The main form in the .EXE application
    ...
    Public obj As New iolibrary.LocalIO
    Declare Auto Function GetDataFromFile Lib "iolibrary.dll" (ByVal filename As String) As Array
    Declare Auto Function WriteDataToFile Lib "iolibrary.dll" (ByVal arraydata As Array, ByVal filename As String) As Integer

    [other functions/subs/events as required...]

    Private Sub cmdGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetData.Click
        'This sub makes a call to a function stored in a DLL (GetDataFromFile()) that
        'opens a predefined file (sFileName), gets data from it, stores that data in an
        'array, then returns the array for further processing.
        [data processing...]
        arInData = obj.GetDataFromFile(sInFileName)
        [data processing...]
    End Sub

    Private Sub cmdVendorToLocal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVendorToLocal.Click
        'This function takes data stored in an array (arOutData), and passes it, along
        'with a predefined file name (sOutFileName) into a function stored in a DLL
        'which writes the data out to that file. It then returns the number of rows
        'written.
        [data processing...]
        iRecsWritten = obj.WriteDataToFile(arOutData, sOutFileName)
        [data processing...]
    End Sub
End Class

Public Class LocalIO
    Public Function GetDataFromFile(ByVal sFileName As String)
        [data processing...]
        Return arInData
    End Function

    Public Function WriteDataToFile(ByRef arData As Array, ByRef sOutFileName As String)
        [data processing...]
        Return iNumRecsWritten
    End Function
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
    Dim dbl As Double<br />
    dbl = 10 / 3<br />
    Me.TextBox1.Text = Format(dbl, "##.##")<br />
End Sub

    Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Dim ChildForm1 As New System.Windows.Forms.Form<br />
        Dim btnButton1 As New Button<br />
        Dim ChildForm2 As New System.Windows.Forms.Form<br />
        Dim btnButton2 As New Button<br />
        ChildForm1.Text = "Form1"<br />
        ChildForm2.Text = "Form2"<br />
        btnButton1.Text = "I Control 2"<br />
        btnButton2.Text = "I Control 1"<br />
        ChildForm1.MdiParent = Me<br />
        ChildForm1.Controls.Add(btnButton1)<br />
        ChildForm1.Show()<br />
        ChildForm1.Name = "Form1"<br />
        ChildForm2.MdiParent = Me<br />
        ChildForm2.Controls.Add(btnButton2)<br />
        ChildForm2.Show()<br />
        ChildForm2.Name = "Form2"<br />
<br />
<br />
        AddHandler btnButton1.Click, AddressOf button_click<br />
        AddHandler btnButton2.Click, AddressOf button_click<br />
    End Sub<br />
<br />
    Sub button_click(ByVal sender As Object, ByVal e As EventArgs)<br />
        For Each frm As Form In Me.MdiChildren<br />
            If frm.Name <> sender.parent.Name Then<br />
                If frm.Visible Then<br />
                    frm.Hide()<br />
                Else<br />
                    frm.Show()<br />
                End If<br />
            End If<br />
        Next<br />
    End Sub