如何将FORM上的ICON去掉

Question

我想让FORM只显示字符，不显示任何ICON，请问如何做到！

Answer 1

Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1
Private Declare Function CreateIcon Lib "user32" (ByVal hInstance As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Byte, ByVal nBitsPixel As Byte, lpANDbits As Byte, lpXORbits As Byte) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Dim hIcon As Long
Private Sub Form_Load()
    '创建一个空图标
    hIcon = CreateIcon(App.hInstance, 0, 0, 0, 0, ByVal 0&, ByVal 0&)
    SendMessage Me.hwnd, WM_SETICON, ICON_SMALL, ByVal hIcon
   'SendMessage Me.hwnd, WM_SETICON, ICON_BIG, ByVal hIcon
End SubPrivate Sub Form_Unload(Cancel As Integer)
    DestroyIcon hIcon
End Sub

Answer 2

即使在设计的时候将默认的土豹删除还是会出来另一个系统默认的，所以使用下面的办法
在设计的时候将窗体的ClipControls设置为False就可以，但注意FORM的Caption 里比粗有文字哦，至少是个空格，否则~~~自己可以试试，呵呵