'Declaration
Public Overloads Function BitmapPaint( _
ByVal As Picture, _
ByVal As Rectangle, _
ByVal As Single _
) As Bitmap
'使用法
Dim instance As RichTextEditor
Dim imgBackground As Picture
Dim r As Rectangle
Dim zoomFactor As Single
Dim value As Bitmap
value = instance.BitmapPaint(imgBackground, r, zoomFactor)