yo eso no lo haría ni harto de vino, ya que con el  propio link se puede quizás se pueda rastrear tu perfil de Facebook

---

Bueno gracias a todos al final me decanté por PostImage, me gusta por su sencillez.

Muchas gracias

ya he colgado mi foto de perfil inspirada en la estrella de la muerte de StarWars jaja  

Según el Microsoft si usas datasource no puedes eliminar ni añadir ítems al Listbox mediante ListBox.ObjectCollection.
ListBox.Items (Propiedad)



No te compliques y usa For Each 


En el Load del Form2  lo llenas con el contenido del combobox.

     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        ListBox1.Items.Clear()
        For Each Items As String In Form1.ComboBox1.Items
            ListBox1.Items.Add(Items)
        Next
    End Sub    

Cuando cierres el form en el evento closing actualizas el combobox  con los cambios que has hecho en el listbox

  Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Form1.ComboBox1.Items.Clear()
        For Each Items As String In ListBox1.Items
            Form1.ComboBox1.Items.Add(Items)
        Next
    End Sub  

  

EJEMPLO:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange({"Hoy", "Es", "Miércoles"})
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
End Class
 
Public NotInheritable Class Form2 : Inherits Form
    Friend Shared WithEvents Button1 As New Button 'Crea un botón con eventos
    Friend Shared WithEvents ListBox1 As New ListBox 'Crea un botón con eventos
    Sub New()
        Button1.Location = New Point(10, 120)
        ListBox1.Location = New Point(10, 10)
        Me.Controls.AddRange({Button1, ListBox1})
    End Sub
 
    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Form1.ComboBox1.Items.Clear()
        For Each Items As String In ListBox1.Items
            Form1.ComboBox1.Items.Add(Items)
        Next
    End Sub
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        ListBox1.Items.Clear()
        For Each Items As String In Form1.ComboBox1.Items
            ListBox1.Items.Add(Items)
        Next
    End Sub
 
    Private Shared Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add("y a mi que")
    End Sub
End Class

y si quieres puedes usar datasoruce en llugar de For Each  en el Closing del Form2 para el combobox.

    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Form1.ComboBox1.DataSource = Nothing
        Form1.ComboBox1.DataSource = ListBox1.Items
    End Sub

crear un SFX con WinRAR es algo que seguramente ya habrías pensado pues es algo muy común que conoce todo cristo que tenga ordenador, tenga compresor y use con normalidad winrar o winzip. Es una buena opción en este caso como ha explicado @elektro. Lo he usado muchas veces para ejecutar reg como administardor y otras cosas,

Si lo que buscas es crear tu propia  app para que tenga un comportamiento personalizado o haga cosas que una compilación con Winrar no haga. Además de poder cambiar la información reg siempre que quieras (también lo puedes hacer con el SFX abriéndolo con winrar).  Lo podrías hacer con VB6 sin problemas.

 Mi sugerencia es que crees una aplicación con archivo de  recursos con VB6. Supongo que sabrás que en una aplicación se pueden añadir recursos como iconos, imágenes y todo tipo de archivos. Incluso puedes meter otra aplicación dentro. En lo recursos añades el archivo reg.

Haces el código para le programa y que haga lo que tu quieras, y añades código para acceder al recurso reg y reproducirlo. Debe tener un nombre determinado al que puedas hacer referencia.

Esta apliación una vez compilada la puedes modificar con resourcehacker por ejemplo o abriendo el EXE  con C++ de VS6 o VS.NET y sustituir el reg por otro según te interese, de tal modo que tu código encuentre el reg. Con el nombre clave que estableciste en el código par acceder al archivo de recurso reg.


Sin embargo con NET al contrario de lo que ocurren con VB6 al compilar con NET, los archivos de recursos no son visibles a través de resourcehacker ni al abrir el exe en net.  Solo se ven los iconos, el manifest y versión. No se si se podrá configurar o algo para que al agregar un archivo al proyecto y compilarlo el Exe tenga los recursos añadidos visibles.

más info sobre recursos:
https://foro.elhacker.net/ingenieria_inversa/tutorial_para_modificar_programas_ej_10_redimensionar_matrizvb_19jul2010-t134513.0.html

@karmany el autor del post en enlace dice:

Se me ocurren otras maneras pero esta creo que es lo que buscas ya que tienes un EXE único y modificable para añadir el reg que te interese y solo necesitarías ese EXE. No tienes que andar. Además al haberlo compilado con VB6 no tendría dependencia, como NET con el Framework, ya que te funcionaría en cualquier equipo. Siempre y cuando no añadas ActiveX y  cosas así.

solo es por ayudar, espero te sirva.

Si decides usar VB6, seguramente querrás que se ejecute como administrador. En cuyo caso deberás introducir un manifiesto a la aplicación con 'requireAdministrator'

INSERTAR UN MANIFEST A NUESTRA APLICACIÓN Y EJECUTAR COMO ADMINISTRADOR EN VB6

Este código crea el archivo y si existe le añade un número. Si ya existe con ese número le incrementa un número más. Por ejemplo si hay demo.txt, crea demo(1).txt, si ya existe demo.txt y demo(1).txt, crea demo(2).txt. Si existe demo(1).txt y no existe demo.txt, crea demo.txt, luego creará demo(2).txt porque ya existe demo(1).txt

Dim objFS
Dim sFileName As String
Dim sPath As String
Dim sExt As String
Dim num As Integer
Dim sFilePath As String
 
sFileName = "demo"
sExt = "txt"
sPath = "C:\Desktop"
sFilePath = sPath & "\" & sFileName & "." & sExt
num = 0
 
Set objFS = CreateObject("Scripting.FileSystemObject")
'Si  el archivo existe añade un número
'y si tiene un número busca otro número que no exista
If objFS.FileExists(sFilePath) Then
  While objFS.FileExists(sFilePath)
  num = num + 1
 sFilePath = sPath & "\" & sFileName & "(" & num & ")" & "." & sExt
  Wend
End If
 
'Crea el archivo
 Dim objFile As Object
 Set objFile = objFS.CreateTextFile(sFilePath)
 objFile.WriteLine ("Ejemplo")

Lo mismo pero con fecha

Dim objFS
Dim sFileName As String
Dim sPath As String
Dim sExt As String
Dim num As Integer
Dim sFilePath As String
 
sFileName = "demo" & "_" & Format(DateTime.Date, "dd-mm-yyyy")
sExt = "txt"
sPath = "C:\Desktop"
sFilePath = sPath & "\" & sFileName & "." & sExt
num = 0
 
Set objFS = CreateObject("Scripting.FileSystemObject")
'Si  el archivo existe añade un número
'y si tiene un número busca otro número que no exista
If objFS.FileExists(sFilePath) Then
  While objFS.FileExists(sFilePath)
  num = num + 1
 sFilePath = sPath & "\" & sFileName & "(" & num & ")" & "." & sExt
  Wend
End If
 
'Crea el archivo
 Dim objFile As Object
 Set objFile = objFS.CreateTextFile(sFilePath)
 objFile.WriteLine ("Ejemplo")

hola, pues no se que puede ser que no se vaya el scrollbar, a mi no me pasa (con eso no quiero decir que estés mintiendo). En un principio pensé que podía ser cuando se aplica bajo WorkerW pero no.

De todos modos el investigar me has servido para saber porqué se mostraba SHELLDLL_DefView como ventana hijo  de WorkerW en un ordenador y en otro no. La razón es que cuando accedes a personalización y cambias el tema de windows de tipo Aero, SHELLDLL_DefView que por defecto está bajo Progman pasa a WorkerW. Si matas explorer.exe y lo vuelves a ejecutar SHELLDLL_DefView  volverá a estar bajo Progman.

Si no lo hubieras solucionado te hubiera mostrado un código para quitar la barra. Que yo sepa no tiene identificador, pero se podía quitar usando GetWindowLong, SetWindowLong y SetWindowPos.

Perdona que insista, pero es que lo dices como si fuera una constante universal o algo así. Es relativo depende del ordenador. No se si trabajas en reparación de ordenadores, si es así te invito a que pruebes con diferentes compus que tengas a mano de diversos clientes a ver que pasa.

Si el autor del post va a usar el programa para él con su propia compu y se le comprime 1GB en 2s, estupendo. Pero si lo va a usar en otros ordenadores, pues vamos en el mío me sale la barrita y se tira más de un minuto. Lo he probado en un portatil del 2008, o sea que tiene ya 8 añitos.

---

y termino porque es tontería discutir por algo que es obvio 

Eso he hecho yo con el winrar y me tarda. no se, tendrás un ordenador más potente. no se.
añado: no tengo la opción "store", tengo "no comprimir", que supongo que sería el equivalente

De todos modos él tendría que tener instalado el winrar y usar comandos. Sigo sin verlo.

---

1 GB en 2 s, madre mía tu tienes uno de la NASA por lo menos XD
¿Usas SSD? imagino que si. No puedes esperar que todos tengan una compu como al tuya

...y cifrarlo luego si que tardaría ¿no?

Bueno acabo de probar por curiosidad comprimir sin compresion, pero tarda igual ¿a qué te refieres?

si se trataso por ejemplo, hipotéticamente, de un troyano que va a copiar X archivos en una carpeta y bloquearla, hiptéticamente, y no quieres que el usuario se entere..... a eso me refería, no se trata que tarde 1 minuto de 5 en comparación si no que no tarde nada, de nada.

No no le servirá porque el contenido de la carpeta puede ser relativamente grande según el programa en el que desea aplicar esa función.  Eso podría demorar mucho tiempo ya que el hace un listado de archivos que contengan una determinada extensión en un número indeterminado de directorios y se copian en dicha carpeta. Con lo cual si hay 1532 archivo por ejemplo de tipo *.exe, pues tardaría bastante.

@Tomas1982  pues tienes lo razón he bloqueado una carpeta en un pendrive y en otro PC con misma versión de SO y se abre sin problemas.

Cuando dijiste "memoria" creía que te referías que la carpeta estaba en uso, en memoria. En cuyo caso se solucionaba ejecutando como administrador.

Pues se un truquillo, es bastante malo, pero por lo menos un usuario novato no sabrá como abrir la carpeta, a no ser que busque o se informe de como.

Solo conozco una manera "portable" de mantener la carpeta protegida y es usando un archivo Desktop.ini en el interior de la carpeta.

Lo editas con esto:


guardas y luego la carpeta la tienes que cambiar el atributo a System. Es decir a carpeta del sistema. Puedes usar API usando SetFileAttributes  y  la constante Const FILE_ATTRIBUTE_SYSTEM = &H4 y para quitarle el atributo FILE_ATTRIBUTE_NORMAL


con Net sería:

Pero ya ves lo fácil que se puede quitar el atributo. Incluso se puede con la consola y además será accesible desde cualquier sistema que no sea windows.

Lo bueno es que sería portable.

De haber una forma de hacer lo que pides, que yo también estuve buscando hace tiempo, debe ser cambiando el atributo de la carpeta  como hace SetFileAttributes.

Un día lo conseguí, pero no se como lo hice. Hice tantas tonterías que no se que es lo que hizo que una carpeta fuera completamente inaccesible incluso fuera de Windows, no había manera. Pero hice tantos cambios y tantas tonterías que no se que fue lo que cambió la carpeta a ese estado. O sea que poderse se puede.