A ver, enseña parte de tu código donde tratas de extraerlo, así es más fácil que se te pueda ayudar.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitar....de estas que al final sucece algo y de pronto todo lo anterior cobra sentido,...cosas que interpretaste de una manera te das cuenta que son de otra que no tiene nada que ver ....
CitarHKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Uninstall
sub form_load()
' /Esto es de ley
Me.ScaleMode = 3 'Trabajaremos con Pixeles
Me.Autoredraw = True 'Activaremos repintado automatico
Me.Show 'Mostraremos el formulario
'/
Me.Cls ' Limpiar pantalla
Me.Line (0,0)-(100,100),Color ' Dibujamos una linea desde (0,0) hasta (100,100)
Me.Cls ' Limpiar Pantalla
Me.Line (0,0)-(100,100),Color, B 'Dibujamos un cuadrado en (0,0) que mida 100 Px de ancho X 100 de alto
Me.Cls ' Limpiar Pantalla
Me.Line (0,0)-(100,100),Color, BF ' '' '' '' con relleno '' ''
Me.Cls ' Limpiar Pantalla
end sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Msgbox "Hiciste Click en el punto (" & X & ", " & Y & ")"
End Sub
dim peso as long, ff as long
dim archivo as string
Archivo="C:\CualquierArchivo.X"
ff=freefile
open Archivo for binary as ff
peso=lof(ff)
close ff
debug.print peso