[RESOLVED] How to merge these 2 into one program?

[NinjaZec]

First is a windows form application:

Public Class Form1
 
    Dim ds As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ds.ReadXml("DeExample za net.xml")
        DataGridView1.DataSource = ds.Tables(0)
        DataGridView1.ReadOnly = True
 
        Dim xml As XDocument = XDocument.Load("Example za net.xml")
        Dim list1 As List(Of String) = (From node In xml...<Fuel_Cons> Select StrConv(node.Value, VbStrConv.ProperCase)).Distinct.ToList
        list1.Insert(0, "*")
        ComboBox1.DataSource = list1
        Dim list2 As List(Of String) = (From node In xml...<Weather> Select StrConv(node.Value, VbStrConv.ProperCase)).Distinct.ToList
        list2.Insert(0, "*")
        ComboBox2.DataSource = list2
    End Sub
 
End Class

Second is a windows console application:

Imports System
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Imports System.Text
 
 
Module Module1
 
    ' Call this function to remove the key from memory after it is used for security.
    <DllImport("kernel32.dll")> _
    Public Sub ZeroMemory(ByVal addr As IntPtr, ByVal size As Integer)
    End Sub
 
    Sub DecryptFile(ByVal sInputFilename As String, _
        ByVal sOutputFilename As String, _
        ByVal sKey As String)
 
        Dim DES As New DESCryptoServiceProvider()
        'A 64-bit key and an IV are required for this provider.
        'Set the secret key for the DES algorithm.
        DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
        'Set the initialization vector.
        DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
 
        'Create the file stream to read the encrypted file back.
        Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
        'Create the DES decryptor from the DES instance.
        Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
        'Create the crypto stream set to read and to do a DES decryption transform on incoming bytes.
        Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
        'Print out the contents of the decrypted file.
        Dim fsDecrypted As New StreamWriter(sOutputFilename)
        fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
        fsDecrypted.Flush()
        fsDecrypted.Close()
    End Sub
 
    Public Sub Main()
        'Must be 64 bits, 8 bytes.
        Dim sSecretKey As String
 
        ' Get the key for the file to encrypt.
        ' You can distribute this key to the user who will decrypt the file.
        sSecretKey = "12345678"
 
        ' For additional security, pin the key.
        Dim gch As GCHandle = GCHandle.Alloc(sSecretKey, GCHandleType.Pinned)
 
        ' Decrypt the file.
        DecryptFile("\ENExample za net.xml", _
                    "\DeExample za net.xml", _
                    sSecretKey)
 
        ' Remove the key from memory. 
        ZeroMemory(gch.AddrOfPinnedObject(), sSecretKey.Length * 2)
        gch.Free()
    End Sub
 
End Module

Now is there a way to merge this into one application? So that the second application doesnt have to have a file as the output, but that the output, (the decoded file) can be stored in local memory or something and be read by first program?