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