Imports System.Threading.Tasks
Public Class Form1
    Private Sub btnError_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnError.Click
        Me.BackColor = Color.OrangeRed 'Cambia el color del Form
        btnError.Enabled = False 'Deshabilita el Botón
        '<Inicia un subproceso>
        Task.Factory.StartNew(Sub()
                                  Dim Segundos As Integer = 5
                                  System.Threading.Thread.Sleep(Segundos * 1000) 'Espera 5 segundos
                                  Me.Invoke(Sub() Me.BackColor = SystemColors.Control) 'Recupera el color del Form
                                  Me.btnError.Invoke(Sub() Me.btnError.Enabled = True) 'Vuelve a habilitar el botón
                              End Sub)
 
        Me.Width = 500
        Label1.Text = "Task genera un subproceso que se produce de forma independente" & Environment.NewLine _
            & "El evento Click lo ha iniciado y pasa a la línea siguiente para mostrar este texto"
    End Sub
End Class
 

  <Button>
<Image Height="18" Source="/WpfApplication1;component/Resources/Ir.png" Stretch="Fill" Width="18"/>
</Button>

  <Button>
<Image Height="18" Source="/Resources/Ir.png" Stretch="Fill" Width="18"/>
</Button>

  <Button>
<Image Height="18" Source="Res/Ir.png" Stretch="Fill" Width="18"/>
</Button>

<Application x:Class="Application"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    StartupUri="MainWindow.xaml">
    <Application.Resources>
        <ImageBrush x:Key="OpenImage">
            <ImageBrush.ImageSource>
                         <BitmapImage UriSource="/Resources/open.png" />
            </ImageBrush.ImageSource>
        </ImageBrush>
 
        <Style TargetType="Button">
            <Setter Property="Background" Value="{StaticResource OpenImage}"/>
        </Style>
 
    </Application.Resources>
</Application>

<ComboBox Name="ComboBox1" IsEditable="True"  Height="25" Width="150" Margin="0,20,0,0"> </ComboBox>

Public Class Form1
    Dim Vector() As String = {Nothing, "Amarillo", "Rojo", "Naranja", "Negro"}
    Dim Conmutador As Boolean
    Private Sub botton_siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botton_siguiente.Click
        Conmutador = IIf(Conmutador = False, True, False)
        Select Case Conmutador
            Case False
                Me.botton_resp1.Text = Vector(1)
                Me.botton_resp1.BackColor = Color.Yellow : Me.botton_resp1.ForeColor = Color.Black
                Me.botton_resp2.Text = Vector(2)
                Me.botton_resp2.BackColor = Color.Red : Me.botton_resp2.ForeColor = Color.Black
            Case True
                Me.botton_resp1.Text = Vector(3)
                Me.botton_resp1.BackColor = Color.Orange : Me.botton_resp1.ForeColor = Color.Black
                Me.botton_resp2.Text = Vector(4)
                Me.botton_resp2.BackColor = Color.Black : Me.botton_resp2.ForeColor = Color.White
        End Select
        Me.Text = Conmutador
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.botton_resp1.Text = Vector(1)
        Me.botton_resp1.BackColor = Color.Yellow : Me.botton_resp1.ForeColor = Color.Black
        Me.botton_resp2.Text = Vector(2)
        Me.botton_resp2.BackColor = Color.Red : Me.botton_resp2.ForeColor = Color.Black
    End Sub
End Class

Public Class Form1
    Dim Vector() As String = {Nothing, "Amarillo", "Rojo", "Naranja", "Negro"}
    Dim Conmutador As Boolean
    Private Sub botton_siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botton_siguiente.Click
        Conmutador = IIf(Conmutador = False, True, False)
        Select Case Conmutador
            Case False
                With botton_resp1
                    .Text = Vector(1) : .BackColor = Color.Yellow : .ForeColor = Color.Black
                End With
                With botton_resp2
                    .Text = Vector(2) : .BackColor = Color.Red : .ForeColor = Color.Black
                End With
            Case True
                With botton_resp1
                    .Text = Vector(3) : .BackColor = Color.Orange : .ForeColor = Color.Black
                End With
                With botton_resp2
                    .Text = Vector(4) : .BackColor = Color.Black : .ForeColor = Color.White
                End With 
        End Select
        Me.Text = Conmutador
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With botton_resp1
            .Text = Vector(1) : .BackColor = Color.Yellow : .ForeColor = Color.Black
        End With
        With botton_resp2
            .Text = Vector(2) : .BackColor = Color.Red : .ForeColor = Color.Black
        End With
    End Sub
End Class

Imports System.IO
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        cargarCarpetas("C:/Manuales")
    End Sub
    Public Sub cargarSubcarpetas(ByVal rutaRaiz As String,
              ByVal nodoTree As Windows.Forms.TreeNode)
        On Error Resume Next
        Dim carpetaActual As String
        Dim indice As Integer
 
        If nodoTree.Nodes.Count = 0 Then
            For Each carpetaActual In
                    My.Computer.FileSystem.GetDirectories(rutaRaiz)
                indice = carpetaActual.LastIndexOf(System.IO.Path.PathSeparator)
                nodoTree.Nodes.Add(carpetaActual.Substring(indice + 1,
                     carpetaActual.Length - indice - 1))
                nodoTree.LastNode.Tag = carpetaActual
                nodoTree.LastNode.ImageIndex = 0
            Next
        End If
    End Sub
 
    Public Sub cargarCarpetas(ByVal rutaRaiz As String)
        Dim nodoBase As System.Windows.Forms.TreeNode
 
        If IO.Directory.Exists(rutaRaiz) Then
            If rutaRaiz.Length <= 3 Then
                nodoBase = TreeView1.Nodes.Add(rutaRaiz)
            Else
                nodoBase = TreeView1.Nodes.Add(
                    My.Computer.FileSystem.GetName(rutaRaiz))
            End If
            nodoBase.Tag = rutaRaiz
            cargarSubcarpetas(rutaRaiz, nodoBase)
        Else
            Throw New System.IO.DirectoryNotFoundException()
        End If
    End Sub
 
    Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim n As System.Windows.Forms.TreeNode
        For Each n In e.Node.Nodes
            cargarSubcarpetas(n.Tag, n)
        Next
    End Sub
 
    Private Sub TreeView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDoubleClick
 
        Dim ruta As String
        ruta = TreeView1.SelectedNode.ToString.Substring(9)
        TextBox1.Text = ruta
        Shell("explorer.exe root=" & TextBox1.Text & " ", vbNormalFocus)
 
    End Sub
End Class

C:\Program Files\Microsoft Visual Studio 10.0\Samples\3082 

Option Strict On
Option Explicit On
Public Class Form1
 
    Public Sub EventClickRef(ByRef Res As Integer)
        Dim nRandom As New Random
        Res = nRandom.Next(5 * Res) 'Multiplica el valor devuelto por 5 y lo mete en Res
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Res As Integer = 2
        EventClickRef(Res) 'Envia el valor actual de Res (2) a EventClick y devuelve otro valor
        Button1.Text = CStr(Res)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

 Dim VectorBytes() As Byte
 
  Open App.Path & "\" & "prueba.dat" For Binary Lock Read As 1
 VectorBytes= Space(LOF(1))
 ' ReDim bytes(?) '<<--- Forma selectiva de bytes Ej. (500)
    Get #1, , VectorBytes
  Close #1

Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const FILE_ATTRIBUTE_NORMAL = &H80
Const OPEN_ALWAYS = 4
Const INVALID_HANDLE_VALUE = -1
 
 Private Declare Function FlushFileBuffers Lib "kernel32" ( _
        ByVal hFile As Long) As Long
 
 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" _
(ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
 
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Any, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
 
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _
lpBuffer As Any, _
ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, _
ByVal lpOverlapped As Any) As Long
 
 
Private Declare Function WriteFile Lib "kernel32" _
(ByVal hFile As Long, lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Any) As Long
 
Private Sub Command1_Click()
    Dim hFile As Long
    Dim fBytes() As Byte <==Array del archivo
    Dim fSize As Long, lBytesRead As Long
    Dim fSuccess As Long
    Dim BytesToRead As Long
    Dim FileToRead As String
 
   FileToRead = App.Path & "\" & "Prueba.dat"
 
 
    '///LEE EL ARCHIVO EN BYTES ///////////////////
    hFile = CreateFile(FileToRead, _
    GENERIC_WRITE Or GENERIC_READ, 0&, 0&, _
    OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0&)
    If hFile <> INVALID_HANDLE_VALUE Then
    fSize = GetFileSize(hFile, 0)
    ReDim fBytes(fSize)
    BytesToRead = (UBound(fBytes) + 1) * LenB(fBytes(0))
    fSuccess = ReadFile(hFile, fBytes(LBound(fBytes)), BytesToRead, lBytesRead, 0&)
    CloseHandle hFile
     End If
    '/////////////////////////////////////////////
 
 
 
 ' Guardar el archivo en otro directorio (Con API)
  Call CrearAchivoBinario("C:\PruebaCopia.dat", fBytes)
 
 
 
 '///guardar el archivo en otro directorio (Sin API)
    'Open "C:\PruebaCopia.dat" For Binary Access Write As 1
    'Put #1, , fBytes
    'Close
End Sub
 
 
   Private Sub CrearAchivoBinario(ByVal FileName As String, fBytes() As Byte)
    Dim fSuccess As Long
    Dim hFile As Long
    Dim BytesToRead As Long
    Dim lBytesWritten As Long
 
       BytesToWrite = (UBound(fBytes) + 1) * LenB(fBytes(1))
          hFile = CreateFile(FileName, _
          GENERIC_WRITE Or GENERIC_READ, _
          ByVal 0&, ByVal 0&, _
          OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0&)
 
            If hFile <> INVALID_HANDLE_VALUE Then
          fSuccess = WriteFile(hFile, fBytes(LBound(fBytes)), BytesToWrite, lBytesWritten, 0&)
 
            If fSuccess <> 0 Then
               fSuccess = FlushFileBuffers(hFile)
               fSuccess = CloseHandle(hFile)
            End If
            End If
 
      End Sub