Sub Form_Load ()
    Title = "ﾌﾞﾗｯｸﾎｰﾙについての注意"
    Msg = "ﾌﾞﾗｯｸﾎｰﾙから抜け出すには、MOUSEをﾀﾞﾌﾞﾙｸﾘｯｸして下さい."
    DgDef = MB_OK + MB_ICONEXCLAMATION
    Res = MsgBox(Msg, DgDef, Title)
End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Enabled = True
End Sub

Sub Image1_DblClick ()
    Form2.Show
    Image1.Enabled = False
    Timer1.Enabled = False
    M.pX = (Form2.Left + (Form2.Width / 2)) / Screen.TwipsPerPixelX
    M.pY = (Form2.Top + (Form2.Height / 2)) / Screen.TwipsPerPixelY
    Test = SetCursorPos(M.pX, M.pY)
    For i = 0 To 200
        M.pX = M.pX - 1
        M.pY = M.pY - 1
        Test = SetCursorPos(M.pX, M.pY)
    Next i
End Sub

Sub Image1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = True
    M.pX = (Form1.Left + (Form1.Width / 2)) / Screen.TwipsPerPixelX
    M.pY = (Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
    Test = SetCursorPos(M.pX, M.pY)
End Sub

Sub Timer1_Timer ()
    M.pX = (Form1.Left + (Form1.Width / 2)) / Screen.TwipsPerPixelX
    M.pY = (Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
    Test = SetCursorPos(M.pX, M.pY)
End Sub