Private?Sub?Form_Click()
Dim?m?As?Integer,?n?As?Integer
For?i?=?1?To?10?/?2
m?=?64?+?i
n?=?m
For?j?=?i?To?10?/?2?-?1
Print?"?";
Next?j
For?j?=?1?To?2?*?i?-?1
Print?Chr(m);
Next?j
Next?i
For?i?=?1?To?10?/?2
n?=?n?+?1
For?j?=?1?To?i
Print?"?";
Next?j
For?j?=?1?To?2?*?(10?/?2?-?i)?-?1
Print?Chr(n);
Next?j
Next?i
End?Sub