'Deklarationsteil im Form1
 Public Structure SHFILEOPSTRUCT
        Public hwnd As Long
        Public wFunc As Long
        Public pFrom As String
        Public pTo As String
        Public fFlags As Integer
        Public fAnyOperationsAborted As Long
        Public hNameMappings As Long
        Public lpszProgressTitle As String
    End Structure
 
    Public Declare Function SHFileOperation Lib "shell32.dll" _
    Alias "SHFileOperationA" (ByVal lpFileOp As SHFILEOPSTRUCT) As Long
 
    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10
    Private Const FO_COPY = &H2
 
    Public Function ShellFileCopy(ByVal src As String, ByVal dest As String, _
    Optional ByVal NoConfirm As Boolean = False) As Boolean
 
        'PURPOSE: COPY FILES VIA SHELL API
        'THIS DISPLAYS THE COPY PROGRESS DIALOG BOX
        'PARAMETERS: src: Source File (FullPath)
        'dest: Destination File (FullPath)
        'NoConfirm (Optional): If set to
        'true, no confirmation box
        'is displayed when overwriting
        'existing files, and no
        'copy progress dialog box is
        'displayed
 
        'Returns (True if Successful, false otherwise)
 
        'EXAMPLE:  
        'dim bSuccess as boolean
        'bSuccess = ShellFileCopy ("C:\MyFile.txt", "D:\MyFile.txt")
 
        Dim WinType_SFO As SHFILEOPSTRUCT
        Dim lRet As Long
        Dim lflags As Long
 
        lflags = FOF_ALLOWUNDO
        If NoConfirm Then lflags = lflags & FOF_NOCONFIRMATION
        With WinType_SFO
            .wFunc = FO_COPY
            .pFrom = src
            .pTo = dest
            .fFlags = lflags
        End With
 
        lRet = SHFileOperation(WinType_SFO)
        ShellFileCopy = (lRet = 0)
 
    End Function
 
 
 
 
'Und hier der Aufruf über den Button1
Private Overloads Sub command1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles command1.Click
        Dim bSuccess As Boolean
        bSuccess = ShellFileCopy("C:\MyFile.txt", "D:\MyFile.txt")
    End Sub

Rob