How to make Tool Strip have a glass effect?

Question

How to make Tool Strip have a glass effect? Please Help Me As Fast As Possible . Thx .
Note : Please write as details as Possible because I am new to vb.

Answer 1

Another possibility extending the Aero Glass effect.
ToolStrip backcolor has to be transparent.
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public cxLeftWidth As Integer
' width of left border that retains its size
Public cxRightWidth As Integer
' width of right border that retains its size
Public cyTopHeight As Integer
' height of top border that retains its size
Public cyBottomHeight As Integer
' height of bottom border that retains its size
End Structure
<DllImport("DwmApi.dll")> _
Public Shared Function DwmExtendFrameIntoClientArea(hwnd As IntPtr, ByRef pMarInset As MARGINS) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
Me.TransparencyKey = Color.Silver
Me.BackColor = Color.Silver
Dim BordersWidth As Integer = CInt((Me.Width - Me.ClientRectangle.Width) / 2)
ToolStrip1.BackColor = Color.Transparent
Try
Dim margins As New MARGINS()
margins.cxLeftWidth = BordersWidth
margins.cxRightWidth = BordersWidth
margins.cyTopHeight = ToolStrip1.Height
margins.cyBottomHeight = BordersWidth
DwmExtendFrameIntoClientArea(Me.Handle, margins)
Catch ex As Exception
End Try
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Refresh()
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Using Brush1 As New SolidBrush(SystemColors.Control)
e.Graphics.FillRectangle(Brush1, Me.ClientRectangle.Left, Me.ClientRectangle.Top + ToolStrip1.Height, Me.ClientRectangle.Width, Me.ClientRectangle.Height)
End Using
End Sub
End Class
La vida loca