Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long


Private Declare Function GetTickCount Lib "kernel32" () As Long


Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long


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


Private Declare Function showwindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long


Private Sub Form_Load()
    'Press Esc To Exit
    'Press Esc To Exit
    'Press Esc To Exit
    'Press Esc To Exit
    'In Form Properties Set BorderStyle = 0
    WindowState = 2 'Maximized
    '\/ Get Pic Of Screen
    Clipboard.Clear
    keybd_event 44, 1, 0, 0


    DoEvents
        Picture = Clipboard.GetData(2)
        Clipboard.Clear
        '/\ Get Pic Of Screen
        SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 'Top
        Visible = True
        showwindow FindWindow("Shell_traywnd", ""), 0 'Hide Start Menu
        SystemParametersInfo 97, True, B, 0 'no Ctrl+Alt+Del
        Randomize
        A = 0
        B = 0
        E = GetTickCount


        Do
            If A <= 0 Then C = Int(3 * Rnd + 1)
            If B <= 0 Then D = Int(3 * Rnd + 1)
            If A >= Screen.Width / 15 - 1 Then C = Int(3 * Rnd - 3)
            If B >= Screen.Height / 15 - 1 Then D = Int(3 * Rnd - 3)
            SetCursorPos A, B 'Move Cur
            A = A + C
            B = B + D


            If GetKeyState(27) < 0 Then 'If You Press Esc Prog Will Stop
                showwindow FindWindow("Shell_traywnd", ""), 1 'Show Start Menu
                SystemParametersInfo 97, False, B, 0
                End
            End If
            '\/Wait


            Do While GetTickCount - E < 5


                DoEvents
                Loop
                '/\Wait
                E = E + 5
            Loop
        End Sub