Visual Basic.NET - Transferencia de archivos de PC a Celular Android desde vb.net vía USB

Sub Trans_Data_Cel()

        Dim Path As String = "C:\xxxxx\Mega.db" 'Dirección del archivo en el equipo

        Dim Path2 As String = "/sdcard/Android/data/app/files/mega.db"  ''Dirección del archivo en el telefono

        If FRM_Datos.RadExp.Checked = True Then

            device.PushFile(Path, Path2, 5000) ' envia la base de datos

        Else

            device.PullFile(Path2, Path, 5000)   ' recibe la base de datos

        End If

    End Sub