tUgAs TaMbaHan

Chapter6

Dim NewElement As Integer (membuat variable / elemen baru sebagai integer)

Private Sub Form_Click (membuat bentuk klik yang bisa diinput gambar) ()
Load Image1(NewElement)
Image1(NewElement).Visible = True
(menentukan letak gambar)'Image1(NewElement).Top = Image1(NewElement - 1).Top
'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
( Menambah komponen dengan berurutan satu persatu)'NewElement = NewElement + 1


'==================================================

(utk mengatur tmpt ackan dng kode)'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd (menentkan ltak ackan))
Image1(NewElement).Left = CInt(Form1.Width * Rnd (menentkan ltak ackan))
NewElement = NewElement + 1 ( Menambah komponen dengan berurutan satu persatu)
'==================================================
"

End Sub

Private Sub Form_Load (menmplkan pesn sesuai dng properties isi_pesan dan judl_pesn yg di input melalui komponen yg kita buat)()
NewElement = 1 (jml komponen yg ditmbahkan secra berurutn)
End Sub (mengakhiri)

Random

mOdErN's pEoPlE

someone dapat dikatakan mOdErN's PeOpLe jika orang tersebut mempunyai sikap:

1. bersikap disiplin
   
2. bersikap terbuka
3. punya perncanaan for his live
4. punya jangkauan for masa depan
5. menghargai waktu
6. menghargai ham
7. bersikap rasional
8. mengahargai pendapat orang lain  n brani mengemukakan pendapatnya
9. mempercayai hakikat teknoloki n ilmu pengetahuan yang dapat digunakan oleh manusia