- Siapkan Komponen Kosong Saja
-
Private Sub Form_Activate()
MsgBox "Ingin Warna HITAM, Klik OK"
Form1.BackColor = RGB(0, 0, 0)
MsgBox "Ingin Warna MERAH, Klik OK"
Form1.BackColor = RGB(255, 0, 0)
MsgBox "Ingin Warna HIJAU, Klik OK"
Form1.BackColor = RGB(0, 255, 0)
MsgBox "Ingin Warna BIRU, Klik OK"
Form1.BackColor = RGB(0, 0, 255)
MsgBox "Ingin Warna PUTIH, Klik OK"
Form1.BackColor = RGB(255, 255, 255)
MsgBox "Keluar dari Program ?, Klik OK"
Unload Me
End SubTampilan output saat di start :
Selamat mencoba
0 komentar:
Posting Komentar
Sukses Bukan Milik Orang-orang pemalas
Tetapi orang-orang yang mau berusaha mempelajarinya.