1. Buka VB6 pilih Standard EXE
2. Buat object sbb:

a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas
d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close
3. Deklarasi data dengan coding sbb:
Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double
4. Membuat coding cmd_proses
Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub
5. Membuat coding cmd_close
Private Sub cmd_close_Click()
End
End Sub
2. Buat object sbb:

a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas
d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close
3. Deklarasi data dengan coding sbb:
Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double
4. Membuat coding cmd_proses
Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub
5. Membuat coding cmd_close
Private Sub cmd_close_Click()
End
End Sub



Model merupakan representasi dari object benda yang sesungguhnya, dan dapat dimodifikasi sesuai dengan yang diharapkan oleh pengguna.Dalam kesempatan ini object yang akan dibuat adalah sebuah gelas yang dipinggir gelas terdapat gambar atau image yang ditempelkan disisinya. Dalam membuat sebuah model, banyak cara untuk membuat sebuah bentuk menjadi model yang diinginkan, yang akan dibahas kali ini adalah membuat model dengan menggabungkan bentuk2 object2 lainnya melalui fungsi yang dinamakan boolean, untuk lebih jelasnya, langkah2 yang dilakukan adalah sebagai berikut :



































