[أسامة]

جرب هذا

كود :

 Private Const CS_DROPSHADOW As Integer = 131072

   Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
       Get
           Dim cp As CreateParams = MyBase.CreateParams
           Dim OSVer As Version = System.Environment.OSVersion.Version()
           Select Case OSVer.Major
               Case Is < 5
               Case 5
                   If OSVer.Minor > 0 Then
                       cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
                   End If
               Case Is > 5
                   cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
               Case Else
           End Select
           Return cp
       End Get
   End Property