Menampilkan Bagian Lain dari Form

v

'Deskripsi: Menampilkan bagian lain form yang pada mulanya belum ' kelihatan atau belum ditampilkan. 'Pembuat : Masino Sinaga (admin@masinosinaga.com) 'Diupload : Rabu, 22 Mei 2002 'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Label, dan ' 1 CheckBox. ' 2. Copy-kan coding berikut ke dalam editor form yang bertalian. '-------------------------------------------------------------------------- Private Sub Form_Resize() Check1.Move 20, 20 Label1.Move 20, Check1.Height + 150 End Sub Private Sub Check1_Click() If Check1.Value = 1 Then Form1.Height = 600 + Check1.Height + Label1.Height Else Form1.Height = 600 + Check1.Height - 30 End If End Sub Private Sub Form_Load() Check1.Caption = "Tampilkan..." Label1.Caption = "Terima kasih..." Form1.Height = 600 + Check1.Height - 30 End Sub