<System.Runtime.InteropServices.DllImport("shell32.dll")> _
    Public Shared Function SHFileOperationA(ByVal src As String, ByVal dest As _
    String, _
    Optional ByVal NoConfirm As Boolean = False) As Boolean
    End Function
 
    Public Overloads Sub command1_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles command1.Click
        Dim bSuccess As Boolean
        bSuccess = SHFileOperationA("C:\MyFile.txt", "D:\MyFile.txt", True)
    End Sub

Rob