Dim jpgStream As New System.IO.FileStream("C:\TEST123.jpg", FileMode.Open, _
  FileAccess.ReadWrite, FileShare.ReadWrite)
    Dim jpgDecoder As New JpegBitmapDecoder(jpgStream, _
    BitmapCreateOptions.PreservePixelFormat, BitmapCacheOption.Default)
    Dim jpgFrame As BitmapFrame = jpgDecoder.Frames(0)
    Dim jpgInplace As InPlaceBitmapMetadataWriter = _
      jpgFrame.CreateInPlaceBitmapMetadataWriter()
    Dim a As String
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
        a = "abc123"
        jpgInplace.SetQuery("System.Keywords", a)
        jpgInplace.TrySave()
        jpgStream.Close()
    End Sub