chapter_6

INI NIE SCRIP NA........

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 SubPrivate 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)

dear diary

ku tak tau apa yang harus ku lakukan ketika dia ingin mengakhiri semua nie hanya karena dia tak percaya dengan sang waktu. apakah kisah ku dengannya akan berakhir???????????????????