PrivateSub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
Dim rpt AsNew rptDD
rpt.Run()
arv.Document = rpt.Document
Dim sz As SizeF = arv.Document.Pages(0).MeasureText("これは私の文字列です。それの長さは何ですか。")
arv.Document.Pages(0).DrawText("これは私の文字列です。それの長さは何ですか。" + sz.ToString(), 0, 0, 6.0F, 9.0F)
arv.Document.Pages(0).DrawLine(0, sz.Height, sz.Width, sz.Height)
End Sub