如何让label了的文字受cmd的控制，点一下换一段字符
比如
Private Sub Cmd1_Click()
label1.caption = “好啊”

label1.caption = “恩恩”（然后再点一下就出现）
再点就出现另一段；而不是循环在这两句；比如在点就出现：
label1.caption = “拜拜”
。。。。
。。。。
。。。。
这样不断出现新的字符
要怎样用函数啊

要显示什么？

要显示文字和表点符号

写子程序吧。

private function  getstring(input as int) as string
    select case input
        case 1
            getstring ="哈哈"
        case 2
            getstring ="呵呵"
        case else
    end select

end sub

调用的时候就是点击cmd改变数字。调用getstring就行。

Private Function getstring(inputbox As Integer) As String
    Select Case inputbox
        Case 1
            getstring = "哈哈"
        Case 2
            getstring = "呵呵"
        Case Else
    End Select
    End Function

 Private Sub Cmd1_Click()
 Label1.Caption = getstring(inputbox as Integer) as String
 Label1.Caption = "case 2"
End Sub
不行啊，它说有问题

简单几句话，就用以下代码吧。

Private Sub Command1_Click()
Static i As Integer
Dim s As String
Select Case i
Case 0
    s = "你好！"
    Case 1
    s = "告诉你一句悄悄话,"
    Case 2
    s = "你听了不要激动哦，"
Case 3
    s = "....."
Case 4
    s = "知道了吗？"
'case ...可以添加其他语句
Case Else
s = ""
End Select
Label1.Caption = s
i = i + 1
End Sub