如何在程序代码中加载主窗体的ICO,在网上查了些资料，但没找到，麻烦大家了。

Question

Private Sub Form_Load()
    Set Me.Icon = LoadPicture(App.Path & "\A.ico")
End Sub

Answer 1

非常感谢，但是这种方法加载的图标有个黑边框，而直接在窗体ICO属性栏设置的这同一个图标，没有边框，请问用Set Me.Icon = LoadPicture(App.Path & "\A.ico")
这种方法加载的图标注如何去掉边框。

Answer 2

用图标编辑器检查一下 A.ico，只保留一张 16x16 的 256 色格式，其他的都删除。
多格式加载时可能选用了不一个不确定的格式，显示就有问题了。

Answer 3

试试，在窗体上放一个 Image 控件，设置其属性 visibal = False。
    Set Image1.Picture = LoadPicture(App.Path & "\A.ico"）
    Me.Icon = Image1.Picture如果还有边框，就试试在窗体编辑窗口的 Icon 属性中，删除原设置。
再不行，就要检查一下图标文件是否存在问题。例如，换成其他标准的 VB ico 文件试试。