Hari natal tak serasa lengkap jika tanpa lampu natal, nah sekarang kita mencoba untuk membuat Lampu Natal sendiri dengan menggunakan aplikasi Visual Basic, tanpa harus mengeluarkan uang untuk membeli lampu natal yang mungkin harganya mahal...!
Dengan lampu natal buatan sendiri tersebut, Hari Natal kita akan menjadi hari natal yang murah dan meriah.


Adapun cara membuatnya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sebagai berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Lampu Natal
Shape	Shape1	Caption	Lampu1
		BackColor	&H000040C0&
Shape	Shape2	Caption	Lampu2
		BackColor	&H000040C0&
Shape	Shape3	Caption	Lampu3
		BackColor	&H000040C0&
Shape	Shape4	Caption	Lampu4
		BackColor	&H000040C0&
Timer	Timer1	Interval	700

NB: Semakin kecil nilai interval pada Timer, maka semakin cepat pergantian warnanya. Tapi sebaliknya semakin besar nilainya, maka akan semakin lambat pergantian warnanya.
2. Susunlah letak kontrol-kontrol tersebut pada form sehingga kira-kira seperti gambar dibawah ini.
3. Ketiklah listing berikut pada kode editor.

Dim lamp As Boolean
Private Sub Timer1_Timer()

If Lamp=True Then
Shape2.BackColor=vbGreen
Shape4.BackColor=vbGreen
Shape1.BackColor=vbBlack
Shpae3.BackColor=vbBlack
lamp=False
Else
Shape1.backColor=vbRed
Shape3.BackColor=vbRed
Shape2.BackColor=vbBlue
Shape4.BackColor=vbBlue
lamp=True
End If

End Sub
4. Simpan Form dan Project anda.
5. Kemudian jalankan program tersebut dengan cara klik run pada menu bar, lalu klik start, atau dengan cara menekan F5 pada keyboard, atau juga dengan cara jalan pintas yaitu mengklik tombol yang bergambar simbol Play dibawah menu bar. Setelah anda menjalankan program tersebut lihatlah hasilnya, tidak kalah menarik dengan lampu aslinya kan...?