Ruggy Paint 2 - Module1.bas


	Attribute VB_Name = "Module1" Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Public Const SPIF_SENDWININICHANGE = &H2 Public Const SPI_SETDESKWALLPAPER = 20 Public Const SPIF_UPDATEINIFILE = &H1