Desaint Form Microsoft Visual Basic 6.0

Efek Back Ground Warna – Warni Berupa Titik – Titik

Jika anda ingin tampilan form anda lebih menarik cobalah trik berikut. Trik ini akan menjadikan form anda mempunyai banyak warna berupa titik – titik warna yang selalu berubah sehinggan form anda akan tampak beda.

Untuk  lebih jelasnya cobalah trik berikut :

1. Masuk kedalam Microsoft Visual Basic 6.0 dan buat project baru.
2. Pindah kursor anda ke jendela Editor.

Pada form rubahlah Procedure menjadi Clik bukan Load lagi, seperti gambar, kemudian tulis rumus berikut :

Private Sub Form_Click()

Dim x As Integer

Dim y As Integer

Do:

x = Rnd * 15000

y = Rnd * 15000

Me.PSet (x, y), QBColor(Rnd * 15)

DoEvents

Loop

End Sub

Setelah semuanya selesai jalankan program dan klik pada form anda.

Lihatlah perubahan pada Form anda. maka tampilan form akan berubah seperti ini :

semua ini adalah pengabungan dari nilai warna Rnd, anda bisa merubahnya sesuai keinginan anda.