this is a code to capture your card (assuming you have mspaint on your computer)
can modify all data and output as image (png,jpg,gif,bmp,..) in mspaint.

publi yform
yform=newObject("asup")
yform.show
read events
retu
*

*
DEFINE CLASS asup AS form
	BorderStyle = 0
	Height = 204
	Width = 813
	ShowWindow = 2
	AutoCenter = .T.
	Caption = "Form1"
	TitleBar = 1
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		FontBold = .T., ;
		FontSize = 14, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Height = 25, ;
		Left = 228, ;
		Top = 25, ;
		Width = 564, ;
		Name = "Text1"

	ADD OBJECT text2 AS textbox WITH ;
		FontSize = 12, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Height = 25, ;
		Left = 156, ;
		Top = 70, ;
		Width = 636, ;
		Name = "Text2"

	ADD OBJECT text3 AS textbox WITH ;
		FontSize = 11, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Height = 20, ;
		Left = 216, ;
		Top = 93, ;
		Width = 397, ;
		Name = "Text3"

	ADD OBJECT text5 AS textbox WITH ;
		FontSize = 12, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Height = 22, ;
		Left = 132, ;
		Top = 141, ;
		Width = 636, ;
		Name = "Text5"

	ADD OBJECT text6 AS textbox WITH ;
		FontSize = 12, ;
		Value = "Mail:", ;
		Height = 25, ;
		Left = 175, ;
		Top = 114, ;
		Width = 37, ;
		Name = "Text6"

	ADD OBJECT text7 AS textbox WITH ;
		FontSize = 11, ;
		Value = "Web:", ;
		Height = 25, ;
		Left = 458, ;
		Top = 114, ;
		Width = 37, ;
		Name = "Text7"

	ADD OBJECT image1 AS image WITH ;
		BackStyle = 0, ;
		Height = 116, ;
		Left = 7, ;
		Top = 4, ;
		Width = 111, ;
		Name = "Image1"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 168, ;
		Left = 648, ;
		Height = 25, ;
		Width = 133, ;
		Caption = "Capture", ;
		Default = .T., ;
		Name = "Command1"

	ADD OBJECT label1 AS label WITH ;
		FontSize = 12, ;
		FontUnderline = .T., ;
		BackStyle = 0, ;
		Caption = "", ;
		Height = 25, ;
		Left = 218, ;
		Top = 114, ;
		Width = 241, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"

	ADD OBJECT label2 AS label WITH ;
		FontSize = 12, ;
		FontUnderline = .T., ;
		BackStyle = 0, ;
		Caption = "", ;
		Height = 25, ;
		Left = 502, ;
		Top = 114, ;
		Width = 266, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"

	PROCEDURE ycapture
		Local oshell
		oshell=Newobject("wscript.shell")
		thisform.text1.setfocus
		sleep(1000)
		&&capture active window
		DECLARE INTEGER keybd_event IN Win32API   INTEGER, INTEGER, INTEGER, INTEGER
		   VK_SNAPSHOT = 44    && from the winuser.h
		   VK_LMENU = 164
		   KEYEVENTF_KEYUP = 2
		   KEYEVENTF_EXTENDEDKEY = 1

		*The following commands copy the active application window to the 
		*clipboard (the equivalent of ALT+PrintScrn):click on the window to getfocus.
		keybd_event( VK_LMENU,    0, KEYEVENTF_EXTENDEDKEY, 0 ) 
		keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 )
		keybd_event( VK_LMENU,    0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )
		keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )
		DOEVENTS
		sleep(2000)
		thisform.alwaysontop=.f.
		Run /N mspaint
		Sleep(3000)

		oshell.sendkeys("^{v}") &&standard wundows hotkey CTRL+V
		oshell=null

		sleep(1000)
		thisform.release
	ENDPROC

	PROCEDURE Destroy
		clea events
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		if nkeycode=27
		thisform.release
		endi
	ENDPROC

	PROCEDURE Init
		_screen.windowstate=1
		local m.yrep
		m.yrep=addbs(justpath(sys(16,1)))
		sys(2002)  &&set curs off

		with thisform
		.titlebar=0
		.alwaysOnTop=.t.
		.setall("borderstyle",0,"textbox")
		.setall("Backstyle",0,"textbox")
		.text1.value="Time Express Swiss Couriers Limited"
		.text2.value="Unit 20, Trident Industrial Estate BlackTorne Road, ColBrook SL3 OAX"
		.text3.value="Tel: +44 (0) 1753 686 830    Fax: +44 (0) 1753 686 831"
		.label1.caption="express@timesswiss.com"
		.label2.caption="www.timexswiss.com"
		.text5.value="Company registration (in England) 3623797  Vat Number GB 731 7892 13"
		endwith
	ENDPROC

	PROCEDURE Load
		declare integer Sleep in kernel32 integer
		set safe off
	ENDPROC

	PROCEDURE image1.Init
		local m.myvar
		text to m.myvar noshow
		R0lGODlhbwB0APcAAAAAAAAAMwAAZgAAmQAAzAAA/wArAAArMwArZgArmQArzAAr/wBVAABVMwBVZgBVmQBVzABV/wCAAACAMwCAZgCAmQCAzACA/wCqAACqMwCqZgCqmQCqzACq/wDVAADVMwDVZgDVmQDVzADV/wD/AAD/MwD/ZgD/mQD/zAD//zMAADMAMzMAZjMAmTMAzDMA/zMrADMrMzMrZjMrmTMrzDMr/zNVADNVMzNVZjNVmTNVzDNV/zOAADOAMzOAZjOAmTOAzDOA/zOqADOqMzOqZjOqmTOqzDOq/zPVADPVMzPVZjPVmTPVzDPV/zP/ADP/MzP/ZjP/mTP/zDP//2YAAGYAM2YAZmYAmWYAzGYA/2YrAGYrM2YrZmYrmWYrzGYr/2ZVAGZVM2ZVZmZVmWZVzGZV/2aAAGaAM2aAZmaAmWaAzGaA/2aqAGaqM2aqZmaqmWaqzGaq/2bVAGbVM2bVZmbVmWbVzGbV/2b/AGb/M2b/Zmb/mWb/zGb//5kAAJkAM5kAZpkAmZkAzJkA/5krAJkrM5krZpkrmZkrzJkr/5lVAJlVM5lVZplVmZlVzJlV/5mAAJmAM5mAZpmAmZmAzJmA/5mqAJmqM5mqZpmqmZmqzJmq/5nVAJnVM5nVZpnVmZnVzJnV/5n/AJn/M5n/Zpn/mZn/zJn//8wAAMwAM8wAZswAmcwAzMwA/8wrAMwrM8wrZswrmcwrzMwr/8xVAMxVM8xVZsxVmcxVzMxV/8yAAMyAM8yAZsyAmcyAzMyA/8yqAMyqM8yqZsyqmcyqzMyq/8zVAMzVM8zVZszVmczVzMzV/8z/AMz/M8z/Zsz/mcz/zMz///8AAP8AM/8AZv8Amf8AzP8A//8rAP8rM/8rZv8rmf8rzP8r//9VAP9VM/9VZv9Vmf9VzP9V//+AAP+AM/+AZv+Amf+AzP+A//+qAP+qM/+qZv+qmf+qzP+q///VAP/VM//VZv/Vmf/VzP/V////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAACH5BAEAAPwALAAAAABvAHQAAAj/APcJHEiwoMGDCBMqXMiwocOHCpVlElbOW7ldmYZB3Mixo8eF9CYK87bOG7lhmZR9XMmyZcSJ5MrFJIdRo8ubOD3qI5aJ3UyZ4DDZzEm06Eth62Kqk7mO17ChRqNGlbiu3LqkMssFyyi1a1FlT6+SE5uVq9ezLsEKG2vV6tJywoapREvXo0R2V5dWTbouLtS6gBkqU5bsalV16/SOzZQysOOFyogNM2zY6lhycTM93nwQLDJ18RKLrbzuKTHOqAUSxkvZ8Fi+whqnfjx4WGjRea3ytcrO7GzAO5OFvt3asN64p3/XHYxs3fCr8PImtpw0mDBi0JSjHcwOtHPixfda/81ETJ92r/SUyYvH/ip4xKPZrks2bNl5qYPlrWP3/Ln0ykvtIhc99xmVX3sI4lacXuMNE02BRCkzT3MJDkccfK9dVpoyBELokj71JLPed9+xFk90relWVVygeHgTYevFox+C4P2H2GWYyeUiQfosY95D9UAzz3oxfmehc0he1ZaSfelYYDTpSTQJJpNo9hA9wg1XJHt4xQMfbjeK1ZuTs+lT2zCSpInGJGhIgoaVDS2TjzxEcknjOvq515pi1821GYjQ8CTJJG5KkkaamDAyqCQOmZdljCNuyV6NiFlm1TDJbFYbJohOiUaiu+xSSy3e7NLmQ0JCeuSqlH35JTnsPP+lkp9egVVllYvyssg33njDq6++vgnknDKyV+eIt01aXDl6rRMMO8LElYwyQRqIJiaZcMopL6T2yuu33tYyKEQiqhqjhVzCV6NuP8X0DVxPkblSoJwyNqUttfwK7K/fYOOtN7VgC5EyxhYcGpFG+gcfYs3+pA6v5ZTzVCbJ1GMXL4wxJkm+vf7LL7Ag10IorQvpQw8+8txjLrpIhhbduool9c3D5HxTszkTkwxZL9hOIky+34AL7r7eYCN0wIwOvHKx6/HH6n+itaVURTGZ1KtTKOls0MSMmTM0yP366u/H3mTT66BwNppPPPhMqqqxJfqXYpjt2iy0xJJpvQ9YGWH/EjTYgANu9L/e8CIJJnojROA8xbZd7OPFGkmignthdZndFu3LorxgocQOqUITbjbZ/I4NMGMdrd12nUwry2WSSWK420w219wxv5gSM9g+8fIytL68Dl46r2YT/Y24mCS3EeMps/04wluSWCOTzGZVdUUVEe1UZJjyUhHpg4Mc+Lf+AovxJNltBCXKMq63+qRww6+nq8zypdTMNhvfsYDD/Px72YQLXfiAty9JkKcjJmtb21RWMNY17WkpqspPMve92+1raKPzWK+KJzxvme5jGPvLRvTBvpS5r4GuqxCYDrObpZCjZuQgWgYDB0CxAS5sNyzat7AlwofoQx8nPCHk/+rkHP4k6T3sygojwlAL24kPZMX7H9EAl0HT+aoRvumIxfKxOgbKiIFFQpaMYPelvYxlF4y4gRhIVcF9WfF/v/tgAPeFEdl8BEpBNCEK3dYy2EmHLbtYxA3CECoYAiuKbtxgr8YmR7F9LHhBy4jyPmIe9i2wdShMGJ68k6JghEEMjBiLRWz3SB1qMI5kS+SvMJa2jxBoTqvTIxjdVqH35GUXYSBkuzI3PsJNEXgfLB+/bPGU9LkkGqpz3rEMFg+nFfFllNmFGAhpKRhi7leIJJ4NARi6UvJKQHZcCT2iUY8hffGEjlsmy/x4iTBEYhdkuV8Ms/cxYVoQmB4U3+gykv84juhjHvhQWRdj9L7nIciISGpnLXJzGOxVTX/aDF0O9VeLYWgiU8ekx8nOOdAvGrSZkGvPJRZxBtK4kFl2c2IN8RnRAW6zeNLKSTIUSCcGosyLDlzHPfp4FWGEIRiumZ31eEk6GgbQnt8SxieIYZ+0nKymJmQf20x4D0w+7jueBOqyTko7Uipyihn05r+uU54XAVGPJRRo685FpGBYKBiLuESrRmO/kmDvhoOTYxTtKTbkGJMlygDiVFUWVefdlKqqwgee4iGMw/GUNNaTiSFT+bX/Fc9sfforYAEqj9UhAxnKZN8sMalT50RCrtNbSpiYkjmv6m+GpvzYdSqGEwn/DRQf1hGGWjuLWBTWqUvs4SRlqpmVzJEPWHyV6CoH86CbQAkZUFXgJSTRWcMyzabMlB5CF1a96VyPlxMl3/C8YY7IdMgl6Znp6tYrjBtgYqrWJVJVl4YnntaoXSWxZj7BFb4n8mIwP6otsap7U5+KAboCheosiRi59vhxOkIlqvHe6MiyCQMsX7GtCd0nD0xMExNgxG7z2Aq5yeHmNcSlWfb6W1RvDcgo6WGeAp2HiRioMbrwdeBVWQWzhlbNtXD84DDo0UOXTGumg+1sMKYpgzBg4rDWnTF9DzZXCLfrrvzVpvGG3E+WpNeS7jPwNNEQ2sa1b48HC67LSKOky9w1/3u9dLGPugIWEdk0ZcLAwQ3UGAmU0TTEzqMlsup7oelgiLX6Fdy3ygEl9BDGz1FdcgzEIAYQo5WqBkXYnR7clshK+LIaNEd6mhuVQKmnzMgQw54ZUV3e5ljE8AOpiW/DMO8Wl55G/YY5Gl2rZIgoyfgQxqQtPeNiY1KdDqY19a6caDdqUxh7O0udLXlOSYThGOuVUbbRyh5kBCMYmNgFp8T94ErFk2rKBVs7eF0rYtBpvSlDBnXfre1zKvMewpiutacZBklcQhhA5SR86jcTu0q4ht76RjuifZZkEOMZha0uMlSmVj/XGxnTnaaqYxAGgLesmeFJYlfzl01vRQNE2/+hT6tF3FF4T/eTe1YjdUssD9AInOCsNfhrfVUOgZC619ClKU2numGVXQINYrDxFsTQZEkcI4Vyi6DleAlnAmrkvNIehgmRAeYos00YaAjDDbagRj33u2DsuIcRZzRXHGVFshHlpq8WDhhMoQwZjAPzevGB8U9yitIaF4Yys/ucMoochrgOoD7Y7ZVl0CcZyECysasrjF1IQhjrMTq411HQ6DnYMPDE+VuMq0FffcNiAfYKfZ7ya5QVHc+YALHQ2dZ5WpJoRM6Cp3gsB0MnItIcdTETMZY68ZVHVx7eLmFHR1ywxdYXMbeJRDAIXjcgA4sd2+HbU5yB46EXFh/bpvj/22KdoKsQkkl8IQkFQWa0b3QZsIRh/TAQHHHXi9/7y1/roGVtmDO05UbFpVIdVA7mgXU3MQxtcjhBxzaEJWK71YCd9YCYlmnScxthIFfi4UJ2BWQKNxVpEAY2JgaCd1jfR2Dahk5MI2VrtVOuAztMxELVp1wq0VQ54WExgAOqFgYcBoGXdn8neA/v01GZVH7OIgaRAGGWIxOttS/Atw+pdxOSoGpSeGBQdWll1mptA13IRyTLdC5jVH7BcAO6VxVM8V38JTE9YhSZQGmTdgOSIH4VN1XFhk7yAHCYEAluEgltEgmYAG7BIA9/WIFGJE3wNBYAOBOT5StN+IQHKIVq/4R5d0Z0d0aHhnUMdRgMkhAJUjhplOZOh5NbVxEMl6BqkgBZE9RG36AR72cXUahGwQBv8BV+WJhk38dY4KaHZzBNajRpYRB2YSADarQIqiVUifgu0FAPjFhbSCd4JjiHPnhYsUQnx0InBgOIALdvaqRGSadVZuRpcDYM9bCKlJQJksB1sViFhLVtseR60iiN7fM2bAdUmRgJZ1CKLWQ5KcUr5ZWGXoEmwgBaxsdtAcmOADUkcyKNo+U08hNBlZJzJvFN9LAMBogf5IgJnfVnvHV/WygM8+Br85AP9ACSHzkPQ+KOkNIyzkQ5ZXhrFjFkmuVoBnR59AeERIcMwiAUGf/BGBYVWPTwQxqVDyRpksyULMbBQqwlEzZTXhHpGPqgCVRyOP0TLciACbFBJfaSMYxBKz5JD/JQkvwxI0YUddJRTTC0C4MxkcFHGBV5lVNSJUIxLRyiDO5AK/XwID8UlPLwlUYSlkXZjWNhN+2wO7NBD9DAN7EnKwSyiiBiMvrQDtLoHDOiMMaxki/0DcJQmAXSk9WiEyE5D+xAJyk5PZUTWexwljviEUHSk0GplyokGqtVMxcmmKfpSv9UkkVkS6RxGX4hjrOZECajHnmJLCkZVFghDHDZmy3BmEPymc2EIsSJFbHicMjpSvvQk/Swmv1hGLfBFnEhm9PpEXa5E6B0CXJIslp9kRK8+Z0HUYAmA5Sf+ViGYR26k4zqCRGoV53LyX9JghwYVZ8dYZdOiHpcmSexYx3DAApo6Z8OYTHV6YQPwpV4kSeMNSbYoaCUNBAo54SOiSQAFxveaaE6QSsQapPRkgmakKAguhH3KRD6EC0lOi1xKdoSBPJDA6EWGROjK2EeJ1edyrAMhlkl6YmjGLo3gyEZWKmTHyqk9lmkw7BUukMtShqlUjqlVLoRPmIfM9gjWnqlW9qlXHql+5Addfkji8lrKpGY+xAkFnOMYVqX46SmxxincDqnclqndDqnjcZuAQEAOw==
		endtext
		*strtofile(strconv(m.myvar,14),"fox.gif")
		this.pictureVal=strconv(m.myvar,14)
	ENDPROC

	PROCEDURE command1.Click
		this.top=-1000
		thisform.ycapture()
	ENDPROC

ENDDEFINE
*
*-- EndDefine: asup
*