screen.mousepointer=vbhourglass

screen.mousepointer=vbdefault

MiForm.mousepointer=vbhourglass

MiForm.mousepointer=vbdefault

label1.mouseponter=tu_cursor

abel1.mousepointer=vbdefault

Dim SwPoneraLaEscucha as boolean

sub command1_click()
   SwPonerAlaEscucha=true
end sub

sub timer1_timer()
   if not SwPoneraLaEscucha then
      exit sub
   endif

   if winsock1.localip<>label2 then
      poner_a_la_escucha()
      Agregar_A_Registro()
   endif
end sub

Sub Desordenar()
dim Tabla(list1.listcount) as string, TotalEntradas as integer

TotalEntradas=list1.listcount

for x%=0 to TotalEntradas-1 'recorrer el listbox y asignar numero aleatorio
   list1.itemdata(x%)=ObtenerNumero(TotalEntradas) 
next x%

for x%=0 to TotalEntradas-1 'Ordenar por ese numero y dejar el resultado en tabla
   tabla(list1.itemdata(x%))=list1(x%).list
next x%

List1.Clear 'borrar listbox actual

for x%=0 to TotalEntradas-1 'poner las entradas ordenadas por el numero aleatorio
   list1.additem tabla(x%)
next x%
end sub

function ObtenerNumero(TotalEntradas as Integer)
Dim Numero as integer 'lugar donde quedará el numero obtenido
Dim NumValido as boolean 'para saber si el numero es válido o no
Numero=-1 'empezar con un valor no válido

while not EsValido(Numero,TotalEntradas)
   randomize timer
   Numero=int(rnd*TotalEntradas))
loop
ObtenerNumero=Numero
End Function

Function EsValido(Numero as integer,TotalEntradas as integer)
EsValido=true
if Numero<0 then 'si el numero es negativo
   EsValido=false 
else
   for x%=0 to TotalEntradas-1
      if list1.itemdata(x%)=Numero then 'si el numero ya había salido antes
         EsValido=false
      endif
   next x%
endif
End Function

Sub Buscar(texto as string)
for x%=0 to list1.listcount-1
   if list1(x%).list=texto then
      msgbox "Encontrado en la posición: " & x%
   endif
next x%
end sub

text1=format(now,"dd-mmm-yyyy hh:mm")

cn.open ,usuario,clave

dim Cn as adodb.connection, CnStr as string

Cnstr="provider=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=MIDB;USER ID=Hacktor;PASSWORD=123456;DNS=MIDNS;"

Dim Cn as new adodb.connection
Cn.open CnStr,usuario,clave
Cn.execute "update ... "