VB中如何打开一个工程的代码窗口

很简单，只要将最后一句count=0 改成count = n(只要n大于4就行)，即
Private Sub Form_Click()
Static count As Integer
count = count + 1
If count = 1 Then
Print "离离原上草，"
ElseIf count = 2 Then
Print "一岁一枯荣。"
ElseIf count = 3 Then
Print "野火烧不尽，"
ElseIf count = 4 Then
Print "春风吹又生。"
count = 5
End If
End Sub

'其实这种东西用Select 来做会容易些,以下是代码
Private Sub Form_Click()
Static Count As Integer
Count = Count + 1
Select Case Count
Case 1
Print "离离原上草，"
Case 2
Print "一岁一枯荣。"
Case 3
Print "野火烧不尽，"
Case 4
Print "春风吹又生。"
End Select
End Sub