先有法而后有信，信而后有礼，礼后义，义后仁，德道皆不失也

将一个图片转换为base64编码的文本，需要先将图片加载，并转成二进制，然后对二进制进行base64转换，最后输出文本。

代码如下：

Dim g As String
Dim pbBuffer1() As Byte
Dim pbBuffer2() As Byte
Dim ptContent  As String
Load "c:\\logo.jpg", pbBuffer1
Base64Encode pbBuffer1, pbBuffer2
ByteArrayToString pbBuffer2, ptContent
text1.Text = ptContent