[RESOLVED] Add to Envoirment Path

[danasegarane]

I used this one and got worked.

Const BSF_POSTMESSAGE = &H10
Const BSM_APPLICATIONS = &H8
Const WM_SYSCOMMAND = &H112
Private Const BSF_NOHANG As Long = &H8
Private Const WM_WININICHANGE As Long = &H1A
Private Const SPI_SETDESKWALLPAPER As Long = 20
Private Const WM_SETTINGCHANGE As Long = WM_WININICHANGE
Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub EnvoirnmentVarriableChanged()
 
    Call BroadcastSystemMessage(BSF_NOHANG Or BSF_POSTMESSAGE, _
                                BSM_APPLICATIONS, _
                                WM_SETTINGCHANGE, _
                                WM_SYSCOMMAND, _
                                0)
                                
End Sub

Is it correct ?