Autor
Pero no meda aqui posteo mi codigo,
Código:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByValuParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub cmdAceptar()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, C:\WINDOWS\AROS.BMP", 0)
End Sub
En línea
