Mobile

Private Const HWND_BROADCAST As Integer = &HFFFF
Private Const WM_SETTINGCHANGE As Integer = 26
Private Const SPI_SETDESKWALLPAPER As UInt32 = 20

Public Sub SetWallpaper(ByVal ImageFileName As String)
   Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ControlPanel\Desktop", "Wallpaper", ImageFileName)
   PostMessage(New IntPtr(HWND_BROADCAST), WM_SETTINGCHANGE, SPI_SETDESKWALLPAPER, 0)
End Sub

Dim ccd As New Microsoft.WindowsMobile.Forms.CameraCaptureDialog
        ccd.Resolution = New Size(100, 200)
        ccd.Mode = Microsoft.WindowsMobile.Forms.CameraCaptureMode.Still
       ccd.Mode = CameraCaptureMode.Still
        ccd.Owner = Me
        ccd.Title = "Take a Picture"

       If ccd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            If ccd.FileName <> String.Empty Then
                PictureBox1.Image = New Bitmap(ccd.FileName)
                ccd.Dispose()
            End If
        End If

System.Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo(LangCode)