Sub RemoveWinShare(ByVal ShareName As String)
        Dim WMISearcher As System.Management.ManagementObjectSearcher = New _
          ManagementObjectSearcher("SELECT * FROM Win32_Share")
        Try
            For Each share As ManagementObject In WMISearcher.Get
                If share.Properties("Name").Value.ToString = ShareName Then
                    share.Delete()
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Return
        Finally
            WMISearcher.Dispose()
        End Try
        MessageBox.Show("Die Freigabe: " + ShareName + " wurde entfernt!")
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        RemoveWinShare("Freigabe")
    End Sub