VB6.0系统中打印一个平行四边形，用button1_click两个循环实现，请问怎么做？

VB6.0系统中打印一个平行四边形，用button1_click两个循环实现，请问怎么做？

for i = 1 to 5
print tab(i);
for j = 1 to 5
pirnt "*";
next
print ""
next