Imports System.Management
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Const IsFileShare As Integer = 0 
        Const Max_Connections As Integer = 10
        Dim Share_Info As String() = {"C:\Freigabe", "Freigabe", IsFileShare, _
          Max_Connections, "Mein Freigabekommentar"}
        Dim Win_Shares As ManagementClass = New ManagementClass("Win32_Share")
        Try
            Win_Shares.InvokeMethod("Create", Share_Info)
        Catch ex As System.Management.ManagementException
            MessageBox.Show(ex.ToString)
            Return
        Finally
            Win_Shares.Dispose()
        End Try
        MessageBox.Show(Share_Info(0) + " erfolgreich erstellt!")
End Sub

    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