Private Sub cmdQuit_Click()
If Text1.Text = "囧" Then
Jiong.Jiong
End If
Unload Me
End Sub
Private Sub Text1_Change()
If Text1.Text = "囧" Then
Text1.ToolTipText = "按“结束”时会有惊喜！"
End If
End Sub
Public Sub Jiong()
Dim s$
s = "囧囧囧囧囧囧囧囧囧囧" & vbCrLf & "囧 囧" & vbCrLf & "囧 囧 囧 囧" & vbCrLf & "囧 囧 囧 囧" & vbCrLf & "囧囧 囧囧" & vbCrLf & "囧 囧" & vbCrLf & "囧 囧囧囧囧囧 囧" & vbCrLf & "囧 囧 囧 囧" & vbCrLf & "囧 囧 囧 囧" & vbCrLf & "囧 囧 囧 囧" & vbCrLf & "囧囧囧囧囧囧囧囧囧囧"
EasterEgg = MsgBox(s, , "囧")
End Sub
|
东山再起 |
||||||
|
||||||