Private Sub Command1_Click() Label1.Caption = "星空无月欢迎您！"End Sub
解：Private Sub Command1_Click(Index As Integer)label1.caption="把要显示的文字放到双引号中"End Sub
