Dim effects As List = camEx.GetSupportedColorEffects
camEx.SetColorEffect(formData.Get("effect"))
ToastMessageShow(formData.Get("effect"), False)
camEx.CommitParameters
parameters.Put("effect",formData.Get("effect"))
...
Dim ps As CameraSize = pictureSizes(i)
camEx.SetPictureSize(ps.Width, ps.Height)
camEx.CommitParameters
parameters.Put("size",ps)
parameters.Put("data",formData)
File.Writemap("",iniFile, parameters)