If src.StartsWith("data") Then ' base64からバイナリ配列に変換、それをメモリストリームとして使用する Dim ms As New MemoryStream(Convert.FromBase64String(src.Split(CChar(","))(1))) ' ストリームからImageを作成する Dim img As Image = Image.FromStream(ms) ' ストリームを閉じる ms.Close() Else lstFile.Items.Add(src) '文字があれば追加 End If