1楼：烟花坑
**如下：
private sub form_click()me.cls
me.fontsize = 16
me.fontname = "宋体"
me.forecolor = vbbluecurrentx = -7: currenty = 2: print "恭喜你！希望继续努力！"
end sub
private sub form_load()show
me.caption = "欢迎光临!"
scale (-10, 10)-(10, -10)me.fontsize = 20
me.fontname = "楷体"
me.forecolor = vbred
currentx = -5: currenty = 2: print "欢迎使用vb!"
end sub