Private Sub Command1_Click() Dim Cadenas() As Variant Cadenas = Array("cadena01", "cadena02") MsgBox Cadenas(Int(Rnd() * (UBound(Cadenas) + 1))) End Sub
Con ése programa lo que acabaremos consiguiendo eske al contacto al que spammeemos nos acabará poniendo sin admisión, porque se acabará aburriendo de tantos mensajitos....
Deberias hacer una aplicacion cliente/servidor con el Winsock y pones la aplicacion cliente en todas las pc que estan en lan y el servidor pues en la pc que quieres que abra el cd rom de todas las demas.