３．メニューの下に3Dラインを引く

１．Form に直接 Line を引いてメニューの下に3Dラインを描画する ２．LINE コントロールを使ったやり方 ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．Form に直接 Line を引いてメニューの下に3Dラインを描画する

Private Sub Form_Paint() 'Form に直接 Line を引いてメニューの下に3Dラインを描画する 　　'表示が遅くなるが影に隠れると消えるので '　　Me.AutoRedraw = True 　　Me.Line (0, 0)-(Screen.Width, 0), vb3DShadow 　　Me.Line (0, 10)-(Screen.Width, 10), vb3DHighlight End Sub

２．LINE コントロールを使ったやり方

Private Sub Form_Paint() 'フォームに Line コントロールを2個配置し、下記プロパティを設定して下さい。 　　With Line1 　　　　.BorderColor = &H80000010 　　　　.BorderWidth = 1 　　　　.X1 = 0 　　　　.X2 = ScaleWidth 　　　　.Y1 = 0 　　　　.Y2 = 0 　　End With 　　With Line2 　　　　.BorderColor = &H80000014 　　　　.BorderWidth = 1 　　　　.X1 = 0 　　　　.X2 = ScaleWidth 　　　　.Y1 = 15 　　　　.Y2 = 15 　　End With End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)