VB6.0 視窗邊框與陰影寬度由系統控制，非程式可設

結論

VB6.0 視窗邊框寬度、陰影寬度由作業系統視覺主題決定，程式碼無法直接設定。

系統設定位置

1. 右鍵桌面 → 內容/個人化
2. 選擇 視窗顏色/色彩與外觀
3. 點選 進階外觀設定 (Win7) 或 視窗度量標準 (XP)
4. 項目選擇 視窗邊框/邊框寬度、陰影 等
5. 調整 大小/顏色 數值

程式碼無法控制的原因

• VB6 視窗為標準 Windows API 建立 (CreateWindowEx)
• 非客戶區 (Non-client area: 標題列、邊框、陰影) 由 DWM (Desktop Window Manager) / 系統主題渲染
• 應用程式僅控制客戶區內容

替代方案：自繪視窗 (Owner Draw)

若必須自訂邊框/陰影，需：

1. 設定 Form.BorderStyle = 0 (None) 移除系統邊框
2. 在 Form_Paint 事件中使用 GDI/GDI+ 繪製自訂邊框、陰影
3. 自行實作拖曳移動、縮放、最大化/最小化按鈕邏輯
4. 處理 WM_NCHITTEST、WM_NCPAINT 等非客戶區訊息 (需 Subclassing)

簡易無邊框視窗範例

' Form 屬性
BorderStyle = 0  ' None
' 表單載入
Private Sub Form_Load()
    ' 允許拖曳標題列區域移動
    ' 需在滑鼠按下時判斷座標並呼叫 SendMessage
End Sub

' 繪製自訂邊框
Private Sub Form_Paint()
    Dim r As RECT
    GetClientRect Me.hwnd, r
    ' 繪製 2px 藍色邊框
    Me.Line (0, 0)-(r.Right, r.Bottom), vbBlue, B
    ' 繪製陰影 (右側+底部 4px 灰色漸層)
    ' 需用 GDI+ 或多次 Line 模擬
End Sub

建議

• **一般應用**：接受系統預設外觀，專注業務邏輯
• **特殊 UI 需求**：考慮遷移至 .NET (WinForms/WPF) 或現代框架，自訂視窗 Chrome 更容易
• **VB6 維護專案**：若非必要，勿投入自繪視窗開發成本