Mouse Aneh Dengan VB !!

Tapi apakah anda pernah mouse anda tidak dapat berpindah k mana2 ?
Disini saya akan memberikan tutorial gimana caranya supaya mouse tidak dapat berkutik.

 Yang harus anda mengerti pertama adalah tentang fungsi - fungsi component pada Visual Basic.
Ok sekarang kita mulai membuatnya.

1. Siapkan kopi biar g' ngantuk n bwa snackx juga yow.
2. Pertama anda memerlukan software VisualBasic 6.0
3. Kemudian buat new project.
4. Buat form baru dan module.
5. Pada form tambahkan component2 yaitu 2 CommandButton dan 1 timer.
6. Pada CommandButton1 masukkan coding berikut:
 Timer1.Enabled = True

7. Pada CommendButton2 tambahkan coding berikut:
 Timer1.Enabled = False

(CommandButton2 dibuat untuk mengembalikan mouse normal kembali)

8. Pada timer Masukkan Coding berikut:
 X = 1 + 2 + 3 + 4 + 5 + 6 - 2
 Y = 1 + 2 * 800 + 200 - 400 + 130 + 700
  SetCursorPos X, Y

9. Pada Timer propertise isikan seperti berikut :
 Enabled = False
 Interval = 1000
 left = 360
 Top = 720

10. Pada Module Isikan coding berikut :
 Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Setelah selesai coba jalankan. . .

Atau simpan ja menjadi format .exe . . .

Sekarang anda tinggal mengembangkan tutorial yang sudah saya kasih tadi. . .

download contah programnya disini