No te preocipes, aqui todos estamos para ayudarnos

... El codigo va así:
Private 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
Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "ruta", 0)
End Sub
Este codigo lo probe y lo unico que hace es quitarme el que tenia pero no pone el que le indico... Cuando logre que funcione te digo como haces... Ok... Si tienes alguna otra pregunta con respecto a lo demas que llevaria este programa?...