在VB.NET中，可以使用Directory.Move方法来移动目录。但是，如果要禁止用户移动目录，可以通过在移动操作之前检查目录移动的权限来实现。

以下是一个示例代码，演示如何检查和禁止用户在VB.NET中移动目录：

Imports System.IO

Module Module1
    Sub Main()
        Dim sourcePath As String = "C:\SourceDirectory"
        Dim destinationPath As String = "C:\DestinationDirectory"

        ' 检查目录移动的权限
        If CheckDirectoryPermissions(sourcePath) Then
            ' 移动目录
            Directory.Move(sourcePath, destinationPath)
            Console.WriteLine("目录移动成功。")
        Else
            Console.WriteLine("对不起，您没有权限移动目录。")
        End If

        Console.ReadLine()
    End Sub

    Function CheckDirectoryPermissions(directoryPath As String) As Boolean
        ' 检查目录的权限
        Dim directoryInfo As New DirectoryInfo(directoryPath)
        Dim directorySecurity As DirectorySecurity = directoryInfo.GetAccessControl()

        ' 检查当前用户是否具有目录移动的权限
        Dim currentUser As String = Environment.UserDomainName & "\" & Environment.UserName
        Dim accessRules As AuthorizationRuleCollection = directorySecurity.GetAccessRules(True, True, GetType(NTAccount))
        For Each rule As FileSystemAccessRule In accessRules
            If rule.IdentityReference.Value = currentUser AndAlso
                (rule.FileSystemRights And FileSystemRights.Delete) = FileSystemRights.Delete AndAlso
                rule.AccessControlType = AccessControlType.Allow Then
                Return True ' 用户具有目录移动的权限
            End If
        Next

        Return False ' 用户不具有目录移动的权限
    End Function
End Module

在上面的代码中，CheckDirectoryPermissions函数用于检查用户是否具有目录移动的权限。它首先获取目录的安全设置，并根据当前用户的身份验证检查访问规则。如果当前用户具有具有Delete（删除）权限的访问规则，则返回True；否则返回False。

在Main函数中，首先检查目录移动的权限。如果用户具有权限，则调用Directory.Move方法移动目录。否则，输出一条错误消息。

注意：上述代码仅演示如何检查和禁止用户在VB.NET中移动目录。实际应用中，你可能需要根据具体的需求进行适当的修改。