Shared Function ObtenerCaption(ByVal archivo As String) As String
Dim caption As String
Dim ascii As New System.Text.ASCIIEncoding()
Dim foto As New Bitmap(archivo)
Try
Dim propItem As Imaging.PropertyItem = foto.GetPropertyItem(270)
caption = ascii.GetString(propItem.Value)
Catch e As Exception
caption = ""
End Try
Return caption
End Function