Caranya sangat mudah, buka program vb(visual basic 6.0) lalu buat sebuah form seperti gambar dibawah ini!!! Agar mempermudah dalam memasukan rumusnya namanya harus diubah. Misalkan: Combo1 JP1 Label yg nomor 1 J1 Label yg nomor 2 J2 Label yg nomor 3 J3 Label yg nomor 4 J4 Label yg nomor 5 J5 Label yg nomor 6 J6 Lalu masukan rumus seperti ini!!! Private Sub Form_Load() 'code program untuk combo1' JP1.AddItem "SENIN" JP1.AddItem "SELASA" JP1.AddItem "RABU" JP1.AddItem "KAMIS" JP1.AddItem "JUM'AT" JP1.AddItem "SABTU" End Sub Private Sub JP1_Click() If JP1.Text = "SENIN" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" else If JP1.Text = "SELASA" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" else If JP1.Text = "RABU" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" else If JP1.Text = "KAMIS" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" else If JP1.Text = "JUM’AT" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" else If JP1.Text = "SABTU" Then j1.Caption = "jam" j2.Caption = "Mata pelajaran" j3.Caption = "nama guru" j4.Caption = "jam" j5.Caption = "mata pelajaran" j6.Caption = "nama guru" end if end if end if end if end if end sub *untuk rumus "jam, mata pelajaran, dan nama guru" disesuaikan dengan yang ingin anda buat!