在窗体上放一个Picture, 一个TextBox 放一个Command
private sub Command1_Click()
    Picture1.Print Text1.Text
End Sub