VB2008出现以下错误怎么解决？

Question

原本就是让Text2过3秒隐藏，鼠标点击按钮隐藏Text1的，结果出现很多bug（代码如下）
Public Class Form1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class
Private Declare Function timeGetTime()
Lib "winmm.dll" As Long
Private Sub
Command3_Click()
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime
While timeGetTime < Savetime + 5000
End While
Wend
Text1 = "timeGetTime end"
End Sub
Private Sub
Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Click
Label2.Visible = Not Label2.Visible

End Sub
Private Sub
Command1_Click()

End Sub
Private Sub
Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Click
Label1.Visible = Not Label1.Visible

End Sub

Answer 1

timeGetTime 这个函数的声明不正确，应该在 Declare 语句中指定返回值类型为 Long，同时 Lib 关键字和库名称之间需要有一个空格。
Command3_Click 这个子过程的结尾处多了一句 Wend，应该将其删除。
Form1_Click 这个子过程被定义了两次，应该只保留其中的一个，并将其中的内容合并。

Public Class Form1

    Private Declare Function timeGetTime Lib "winmm.dll" () As Long

    Private Sub Command3_Click()
        Dim Savetime As Double
        Text1.Text = "timeGetTime begin"
        Savetime = timeGetTime()
        While timeGetTime() < Savetime + 5000
        End While
        Text1.Text = "timeGetTime end"
    End Sub

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Label2.Visible = Not Label2.Visible
        Label1.Visible = Not Label1.Visible
    End Sub

End Class