Visual Basic

Public Class Shell_Hook_Pointer
    Public Shadows Delegate Function WndProc(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Declare Function RegisterShellHook Lib "Shell32" Alias "#181" (ByVal hwnd As Integer, ByVal nAction As Integer) As Integer
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As WndProc) As Integer

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer

    Private Const GWL_WNDPROC As Short = (-4)
    Private Const RSH_DEREGISTER As Short = 0

    Public Enum SheelHookTypes
        RSH_REGISTER = 1
        RSH_REGISTER_PROGMAN = 2
        RSH_REGISTER_TASKMAN = 3
    End Enum
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Integer, ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private OldProc As Integer
    Private uRegMsg As Integer
    Private hWnd As Integer, ParentWindowHadler As Form
    Public Const wMsg_REMOVABLE_DEVICE = 537
    Public Const wParam_REMOVABLE_DEVICE_INSERTED = 32768
    Public Const wParam_REMOVABLE_DEVICE_REMOVED = 32772
    ''' <summary>
    ''' Envent argumetns
    ''' </summary>
    ''' <remarks></remarks>
    Class ShellHookEventArgs
        Inherits System.EventArgs
        Public Enum REMOVABLE_DEVICE
            NONE = 0
            INSERTED = 1
            REMOVED = 2
        End Enum
        Public hWnd, wMsg, wParam, lParam As Integer
        Public REMOVABLE_DEVICE_INFO As REMOVABLE_DEVICE
        Public TempMsg As String
        Public SheelHookTypes = SheelHookTypes
    End Class

    Public Function WndProcedure(ByVal hWnd As Integer, ByVal wMsg As Integer, _
                                 ByVal wParam As Integer, ByVal lParam As Integer) As Integer

        Dim e As New ShellHookEventArgs
        e.hWnd = hWnd
        e.wMsg = wMsg
        e.wParam = wParam
        e.lParam = lParam
        e.REMOVABLE_DEVICE_INFO = ShellHookEventArgs.REMOVABLE_DEVICE.NONE
        Dim BWorker As System.ComponentModel.BackgroundWorker
        If wMsg = wMsg_REMOVABLE_DEVICE Then
            If wParam = 32768 Then
                e.REMOVABLE_DEVICE_INFO = ShellHookEventArgs.REMOVABLE_DEVICE.INSERTED
            ElseIf wParam = 32772 Then
                e.REMOVABLE_DEVICE_INFO = ShellHookEventArgs.REMOVABLE_DEVICE.REMOVED                                                       'Debug.Print("Device REMOVED")
            End If
            'e.TempMsg = "Inside RMD"
            If e.REMOVABLE_DEVICE_INFO <> ShellHookEventArgs.REMOVABLE_DEVICE.NONE Then
                BWorker = New System.ComponentModel.BackgroundWorker
                AddHandler BWorker.DoWork, AddressOf Removable_Device_Trigger
                BWorker.RunWorkerAsync(e)
            End If
            'RaiseEvent Removable_Device(Me, e)
        Else                                        'e.TempMsg = "Out of RMD"
            Return CallWindowProc(OldProc, hWnd, wMsg, wParam, lParam)
        End If
    End Function
    'Passing to Parent object Start---------------------------------------------------
    Public Event Removable_Device(ByVal sender As Object, ByVal e As ShellHookEventArgs)
    Delegate Sub Removable_Device_DLG(ByVal sender As Object, ByVal e As ShellHookEventArgs)
    Sub Removable_Device_SUB(ByVal sender As Object, ByVal e As ShellHookEventArgs)
        Try
            RaiseEvent Removable_Device(sender, e)
        Catch ex As Exception
            Stop
        End Try

    End Sub
    Private Sub Removable_Device_Trigger(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        Dim re As New ShellHookEventArgs
        re = CType(e.Argument, ShellHookEventArgs)
        Dim safedelegate As New Removable_Device_DLG(AddressOf Removable_Device_SUB)
        ParentWindowHadler.Invoke(safedelegate, Me, re)
    End Sub
    'Passing to Parent object End
    '-------------------------------------------------------------------------

    Function SetShell_Hook(Optional ByVal HookType As SheelHookTypes = SheelHookTypes.RSH_REGISTER_PROGMAN) As Boolean
        If OldProc <> 0 Then Return False
        Dim Temp As New System.Windows.Forms.Form
        Temp.Visible = False
        hWnd = Temp.Handle
        Call RegisterShellHook(hWnd, HookType)
        OldProc = GetWindowLong(hWnd, GWL_WNDPROC)
        SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProcedure)
        Return True
    End Function

    Public Sub RemoveShell_Hook()
        If OldProc = 0 Then Exit Sub
        Call RegisterShellHook(hWnd, RSH_DEREGISTER)
        OldProc = SetWindowLong(hWnd, GWL_WNDPROC, OldProc)
        OldProc = 0
    End Sub

    Protected Overrides Sub Finalize()
        RemoveShell_Hook()
        MyBase.Finalize()
    End Sub

    Public Sub New(ByVal ParentForm As Form)
        ParentWindowHadler = ParentForm
    End Sub
End Class

Dim WithEvents SHP As Shell_Hook_Pointer
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
    SHP = New Shell_Hook_Pointer(Me)
    Button1.Enabled = Not SHP.SetShell_Hook()
End Sub

Private Sub SHP_Removable_Device(ByVal sender As Object, ByVal e As Shell_Hook_Pointer.ShellHookEventArgs) Handles SHP.Removable_Device
        TextBox1.AppendText("hwnd=" & e.hWnd & " wmsg=" & e.wMsg & " wparam=" & e.wParam & " lparam=" & e.lParam & " REMOVABLE_DEVICE_INFO=" & e.REMOVABLE_DEVICE_INFO & vbNewLine)

        Me.Text = e.TempMsg & "   " & e.REMOVABLE_DEVICE_INFO
    End Sub

Is there any solution of this problem?

Private Sub Sharing()
       Try

           Dim managementClass As New ManagementClass("Win32_Share")
           Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
           inParams("Description") = fname
           inParams("Name") = fname
           inParams("Path") = fpath
           inParams("Type") = &H0


               Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)
               If Convert.ToUInt32(outParams.Properties("ReturnValue").Value) <> 0 Then
                   chkShare.Checked = True
               End If '

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub