Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hWndX 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
Private Const HWND_TOPMOST = -1&
Private Const SWP_NOMOVE = &H2&
Private Const SWP_NOSIZE = &H1&

Private Const onTime = 5
Private Const onTime2 = 10
Private m As Integer


Private Sub Form_DblClick()
    If m = onTime2 Then
        Unload Me
    Else
        Restart
    End If
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1000 '60000
    m = 0
    Label1.Caption = "我輩は " & CStr(onTime) & "分前に" & vbCrLf & _
        "インターネットからこのマシンに遊びに来たのである。" & vbCrLf & vbCrLf & _
        "IE 3.0x を使っていると、結構ヤバいぞ!!" & vbCrLf & _
        "ついでに Internet News とか Internet Mail も" & vbCrLf & _
        "RFCに合ってないので、やめとけば" & vbCrLf & _
        "うるさい人に怒られなくて済むぞ。" & vbCrLf & vbCrLf & _
        "我が輩は素直なので、ダブルクリックすると去る。"
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
    Case vbFormCode
    Case Else
        MsgBox "そんなことでは我が輩は消えないぞ!!", vbExclamation, "ばかめ"
        Cancel = True
    End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MsgBox "風呂入れよ", vbInformation, "さらばだ"
End Sub


Private Sub Label1_DblClick()
    Form_DblClick
End Sub

Private Sub Timer1_Timer()
    Dim dum As Long
    
    m = m + 1
    Select Case m
    Case onTime
        Me.Visible = True
        Label1.Move (ScaleWidth - Label1.Width) \ 2, (ScaleHeight - Label1.Height) \ 2
        dum = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE)
        Timer1.Enabled = False
    Case onTime2
        Me.Visible = True
        Label1.Move (ScaleWidth - Label1.Width) \ 2, (ScaleHeight - Label1.Height) \ 2
        dum = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE)
        Timer1.Enabled = False
    End Select
End Sub

Private Sub Restart()
    Me.Visible = False
    MsgBox "達者でな", vbInformation, "さらばぢゃ"
    Timer1.Enabled = True
    Label1.Caption = "我輩は " & CStr(onTime2) & "分前に" & vbCrLf & _
        "インターネットからこのマシンに遊びに来たのである。" & vbCrLf & vbCrLf & _
        "つい、居心地がいいので、まだ潜んでいたのだ。" & vbCrLf & _
        "悪気はないのだ。許せ。" & vbCrLf & vbCrLf & _
        "しつこいようだが、IE 3.0x を使っていると、結構ヤバいぞ!!" & vbCrLf & vbCrLf & _
        "我が輩はこんどこそ、ダブルクリックすると去る。"
End Sub