I know how to embed my icons in visual studio and I want to do it also in vbc.exe

See more:

VB

Hi
I know how to embed form icon and explorer icon in Visual Studio
But I need this also in vbc.exe command line option because in
my computer in my company I have .NET framework but no Visual Studio.

I tried the following command line:

' C:\WINDOWS\Microsoft.NET\Framework\v3.5\vbc /target:winexe /win32icon:exeIcon.ico /resource:formIcon.ico icons_test.vb
'

But only the explorer icon is embedded. The form icon do not embedded.

Do I miss some code in my app

Thank you very much.

What I have tried:

'
' C:\WINDOWS\Microsoft.NET\Framework\v3.5\vbc /target:winexe /win32icon:exeIcon.ico /resource:formIcon.ico icons_test.vb
'
Option Strict Off
Imports System
Imports System.Windows.Forms  
 
Module test_050520

 Sub Main()  
   Dim myForm As New Form1
   myForm.ShowDialog()
 End Sub

End Module


Public Class Form1

   Public Sub New()
     MyBase.New()

     'This call is required by the Windows Form Designer.
     InitializeComponent()
     'Add any initialization after the InitializeComponent() call

   End Sub

End Class


<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(588, 305)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

End Class