Código [Seleccionar]
on error resume next
If GetAttr(App.path + "\PROGRAMA.exe") Then
kill programa
End If
no lo he probado pero debe funcionar
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ú
on error resume next
If GetAttr(App.path + "\PROGRAMA.exe") Then
kill programa
End If
Cita de: ||MadAntrax|| en 17 Septiembre 2006, 22:31 PMlo que se esta haciendo es cargar una imagen aleatoria de 1 a 100 logicamente cambias el 100 por el numero de jpg que tienes. esta claro?
Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")