SoloCodigo

Utiliza la sentencia clipboard:

picture.picture=clipboard.getdata

NO ENTENDI NADA DE TU PROBLEMA, MAS EXPLICITAMENTE NO ENTIENDO TU REQUERIMIENTO.

PODRIAS SER MAS EXPLICITO PARA PODER AYUDARTE

Ahi te va un ejemplo de como hacer graficas.
Creo que analizando el ejemplo, y un poco de ingenio y creatividad de parte de tus neuronas, lograras llegar a buen termino.

Suerte

Por "n" +1 vez vuelvo a repetir lo mismo:

SEAN CLAROS PARA EXPRESAR SUS PROBLEMAS, YA QUE AUN NO SOMOS ADIVINOS.

Que deseas hacer:
- que tu aplicacion te genere un codigo de barras para imprimirlo
- verificar el codigo de barra
- En que formato? EAN13; EAN8, UPCA,UPCE,EAN128,ITF14, etc?


Te envio una fuentes (FONTS) para que las uses, y un ejemplo VB de EAN13 por si te sirve. Ademas va un generador (y a la ves, lo puedes usar como verificador, usando la base de calculo) de codigo EAN13.



PD: Si quieres saber mas sobre codigos de barra, ingresa a www.eanchile.cl y ahi encontraras informacion relacionada a los codigos.

Las aplicaciones MDI, implican un form padre y los otros forms hijos, esto es, una ventana principal (MDI) y las ventanas hijas dentro de la ventana principal.

Para que esto ocurra,a las ventanas hijos debes darle la propiedad MDIChild=TRUE. y la ventana se activara dentro del padre.

Adicionalmente te envio, una aplicacion mia, que lo que hace es tomar un archivo excel y lo modifica.
Si te fijas en las instrucciones, son las mismas del editor de VB en EXCEL (es decir, script) simplemente con algunas adaptaciones a VB.

    Me.MousePointer = vbHourglass
    Archivo = Trim(txtArchivo.Text)
    Set xl = CreateObject("Excel.Application")
    xl.Workbooks.Open Archivo
    xl.Visible = False
    xl.Worksheets("Hoja1").Activate
   
    'Borra celdas de Pagina
    xl.Worksheets("Hoja1").Range("J2") = ""
    xl.Worksheets("Hoja1").Range("K2") = ""
    'Elimina Fila 3 , 7, 9 y 10
    xl.Rows("3:3").Select
    Selection.Delete Shift:=xlUp
   
    xl.Rows("7:7").Select
    Selection.Delete Shift:=xlUp
   
    xl.Rows("9:10").Select
    Selection.Delete Shift:=xlUp
   
    'Borra celdas con valor TP
    xl.Worksheets("Hoja1").Range("B9") = ""
    xl.Worksheets("Hoja1").Range("E9") = ""
   
    'Cambia celda x RUT
    xl.Worksheets("Hoja1").Range("C9") = "Rut"
   
    'Elimina ultima columna DB
    xl.Columns("L:L").Select
    Selection.Delete Shift:=xlToLeft
   
    'Recorre columna B moviendo los RUT
    Espacios = 0
    Sigue = 1
    Fila = 9
    While Sigue = 1
        Fila = Fila + 1
        sCeldaB = "B" & Fila
        sValor = Trim(xl.Worksheets("Hoja1").Range(sCeldaB))
        If Len(sValor) = 0 Then
            Espacios = Espacios + 1
            If Espacios = 10 Then
                Sigue = 0
            End If
        Else
            sCeldaC = "C" & Fila
            If Es_Rut(sValor) = True Then
                sValor = "'" & Editar_Rut(sValor, 2)
                xl.Worksheets("Hoja1").Range(sCeldaC) = sValor
            Else
                xl.Worksheets("Hoja1").Range(sCeldaC) = ""
            End If
            xl.Worksheets("Hoja1").Range(sCeldaB) = ""
            Espacios = 0
        End If
    Wend
   
    'Elimina columna B
    xl.Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
   
    'Recorre columna D buscando Total y mueve la empresa
    Espacios = 0
    Sigue = 1
    Fila = 9
    While Sigue = 1
        Fila = Fila + 1
        sCeldaC = "C" & Fila
        sValor = UCase(Trim(xl.Worksheets("Hoja1").Range(sCeldaC)))
        If Len(sValor) = 0 Then
            Espacios = Espacios + 1
            If Espacios = 10 Then
                Sigue = 0
            End If
        Else
            If sValor = "TOTAL" Then
                sCeldaD = "D" & Fila
                sCeldaF = "F" & Fila
                sEmpresa = Trim(xl.Worksheets("Hoja1").Range(sCeldaD))
                xl.Worksheets("Hoja1").Range(sCeldaC) = "Total " & sEmpresa
                Espacios = 0
            End If
        End If
    Wend
    'Eliminar columna D
    xl.Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
   
    'Cambia celda F9 a empty
    xl.Worksheets("Hoja1").Range("F9") = ""
    'Cambia celda G9 por Debitos
    xl.Worksheets("Hoja1").Range("G9") = "Débitos"
   
    'Recorre columna E eliminando la glosa NAC
    Espacios = 0
    Sigue = 1
    Fila = 9
    While Sigue = 1
        Fila = Fila + 1
        sCeldaE = "E" & Fila
        sValor = UCase(Trim(xl.Worksheets("Hoja1").Range(sCeldaE)))
        If Len(sValor) = 0 Then
            Espacios = Espacios + 1
            If Espacios = 10 Then
                Sigue = 0
            End If
        Else
            If sValor = "NAC" Then
                xl.Worksheets("Hoja1").Range(sCeldaE) = ""
            End If
            Espacios = 0
        End If
    Wend
   
    'Cambia el tipo de letra a toda la hoja
    Columns("A:I").Select
    Range("I6").Activate
    Selection.Font.Name = "Times New Roman"
   
    'Pone marco, centra y negrita a los titulos
    Range("A9:I9").Select
    Selection.HorizontalAlignment = xlCenter
    Selection.Font.Bold = True
   
    'Predefine la zona de encabezado
    ActiveSheet.PageSetup.PrintTitleRows = "$1:$9"
   
    ActiveSheet.PageSetup.RightHeader = "Página &P"
       
    Me.MousePointer = vbDefault
   
    ActiveWorkbook.SaveAs FileName:=Archivo
'    xl.ActiveWorkbook.Close SaveChanges:=True
    xl.Quit 'quit excel
    Set xl = Nothing
   
    MsgBox "Proceso terminado", vbInformation, "Resultado Transformación"

Si colocas en este foro la parte del codigo que guarda las lineas, o mejor aun, las ultima linea en el archivo, quizas podamos ayudarte, por que aun, ninguno de nosotros tiene la capacidad de adivinar. Por lo menos, yo no. Con el codigo, te ayudariamos mejor.

En la raiz del Cd, debes colocar un archivo

AUTORUN.INF con la siguiente informacion


[AUTORUN]
OPEN=MIPROGRAMA.EXE
ICON=LOGO.ICO

y eso es todo, espero te sirva

Private Sub Form_Load()
If App.PrevInstance = True Then
    MsgBox "Solo puede ejecutar una instancia"
    End
Else
    'Sentencias
End If
End Sub

Hasta donde yo se, no puedes comunicar DOS con windows para poder conocer el progreso.

Otra forma, es hacer un truco. Pero se requiere saber muchas cosas para saber que triquiñuela realizar.

Por ejemplo, si la creacion de los archivos responde a un patron determinado, por ejemplo, que comiencen con una letra, que terminen con, que se crean en un directorio termporal, etc.

De esta forma, podrias  simular una comunicacion entre DOS y windows.

Te propongo lo siguiente:
Que la aplicacion DOS cree los archivos en un directorio especifico.
Que antes de comenzar a crear los archivos, cree un archivo en este directorio, y que contenga la cantidad de archivos a crear.

De esta forma, la aplicacion VISUAL, podria leer el archivo que contiene la cantidad de archivos a crear, y asi saber cual sera el valor de la propiedad VALUE del control PROGRESSBAR.

A partir del momento que encuentra el archivo, comienza un timer a correr que se encarga de leer cuantos archivos se encuentran en el directorio y te muestra el progress bar.

Te adjunto una simulacion.

Ahi te va un ejemplo

Utiliza lo siguiente:

Private Sub Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "C:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
sHex = Trim(Hex(numSerie))
If Len(sHex) < 8 Then
    Delta = 8 - Len(sHex)
    For i = 1 To Delta
        sHex = "0" & sHex
    Next i
End If
Label1.Caption = sHex
End Sub


En un modulo inserta este codigo:
Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize _
As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags _
As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)


Prueba

Ahi te va el codigo:

Private Sub Command1_Click()
PathOrigen = Dir1.Path
PathDestino = Dir2.Path
If Mid(PathOrigen, Len(PathOrigen), 1) = "\" Then
    PathOrigen = Mid(PathOrigen, 1, Len(PathOrigen) - 1)
End If
If Mid(PathDestino, Len(PathDestino), 1) = "\" Then
    PathDestino = Mid(PathDestino, 1, Len(PathDestino) - 1)
End If
For i = 1 To File1.ListCount
    If Len(Trim(File1.List(i))) > 0 Then
        ArchivoOrigen = PathOrigen & "\" & File1.List(i)
        ArchivoDestino = PathDestino & "\" & File1.List(i)
        msg = ArchivoOrigen & vbLf
        msg = msg & ArchivoDestino
        FileCopy ArchivoOrigen, ArchivoDestino
    End If
Next i
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir2_Change()
File2.Path = Dir2.Path
End Sub

Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub

SUERTE