POWERdrive for you 1997 October/PDR_1097.ISO/share/win/spiele/bl_hole/form1.txt

Text File | 1993-09-14 | 1KB | 41 lines

Sub Form_Load ()
    Title = "╠▐╫»╕╬░┘é╔é┬éóé─é╠Æìê╙"
    Msg = "╠▐╫»╕╬░┘é⌐éτö▓é»Åoé╖é╔é═üAMOUSEé≡└▐╠▐┘╕╪»╕é╡é─ë║é│éó."
    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