程序图标问题 ！！！！

Question

将caption = " " 行吗？

Answer 1

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_SYSMENU = &H80000
Private Const GWL_STYLE = (-16)Private Sub Form_DblClick()
    Unload Me
    
End SubPrivate Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng Or WS_SYSMENU '系统菜单(图标)
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    
End Sub