vb中如何设置蓝色幸运星？

朋友,你要什么代码呢????????到底要做什么功能?能说清楚一点吗?
此方法,可以生成一个五星红旗

'需要控件:command1
Private Sub Command1_Click()
With Me
.BackColor = vbRed
.CurrentX = 500
.CurrentY = 500
.FontSize = 60
.ForeColor = vbWhite ' vbYellow=黄色,vbWhite=白色,vbred=红色,vbblue=蓝色
End With
Print Chr(-24081)
End Sub

蓝色幸运星是啥?

什么是幸运星？
你的意思是在程序里搞个复活节彩蛋吗？