Sub Click(Source As Button)
	
	Dim CurrSession As New NotesSession
	Call CurrSession.SetEnvironmentVar ( "InstallType" , "6" , True )
	
	Messagebox "INSTALLTYPE setting has been updated. Please close and re-open your Lotus Notes client and re-try. Thank you!" , 64 , "INSTALLTYPE Updated"
	
End Sub