Langganan:
Posting Komentar (Atom)
aktifitas mengajar khususnya bahasa inggris smp dan kegiatan BERMUTU, untuk aktifitas memelihara ditampilkan berbagai info tentang binatang kesayangan..
gratis lucky
Pengikut
Arsip Blog
-
▼
2010
(38)
-
▼
Maret
(12)
- remplaza_fecha('16:55'); Diposkan oleh RIZA YUL...
- Tledekan Banyumas
- Tledekan Banyumas
- Ikan Koi Andalan
- Ditulis oleh Newsroom Friday, 13 March 2009 Ti...
- Biawak oh Biawak
- AYAM PELUNG GENUINE
- CUCAK IJO Burung Cucak Hijau / Burung Cucak Ijo a...
- Burung Cucak Hijau
- Dunia Gurameh Gurameh
- Dunia Gurameh
- Seluk Beluk Murai Batu Top
-
▼
Maret
(12)
Mengenai Saya
Dim Red, Green, Blue As Integer Private Sub Timer1_Timer() If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then Green = 0 Red = Red + 50 End If If Red >= 255 Then Red = 0 End If Label1.ForeColor = Int(RGB(Red, Green, Blue)) Label1.Refresh End Sub Private Sub Timer2_Timer() Label2.Left = Label2.Left - 15 If Label2.Left <= -Label2.Left Then
Tidak ada komentar:
Posting Komentar