请教~~请帮我看看这段代码~~

Question

Option Explicit
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long'在最顶端
RetVal = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE)'取消在最顶端
RetVal = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE)Private Sub Timer1_Timer()
    Label1.Caption = Time
    If Label1.Caption = Text1.Text Then
        MsgBox ("晚了，该睡觉，明天还要上班呢")
        End
    End If
End Sub为什么运行时老说“编译错误，无效的外部过程”

Answer 1

'在最顶端
RetVal = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE)'取消在最顶端
RetVal = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE)你这两句代码写到哪了!?
写错位置了吧!~~

Answer 2

把错误的位置写出来
很可能是你写错位置了
在窗体中是不能用public来声明的的，应该改成
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Answer 3

你把
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long里的Public改成Private