aplikasi sederhana

buat form seperti ini :

masukkan perintah di bawah ini :

Private Sub chkgaris_Click()

If chkgaris.Value = 1 Then

txtinput.FontUnderline = True

 Else

txtinput.FontUnderline = False

 End If

End Sub

Private Sub chkmiring_Click()

 If chkmiring.Value = 1 Then

txtinput.FontItalic = True

 Else

txtinput.FontItalic = False

 End If

End Sub

Membuat daftar menggunakan listbox

 Buat form seperti di bawah ini :
 
masukkan script dibawah ini :

Private Sub form_load()

List1.AddItem "siti jubaidah"

List1.AddItem "shasha kurnia"

List1.AddItem "novi dwi rahayu"

List1.AddItem "rizma nur praditha"

List1.AddItem "kiki puji astuti"

List1.AddItem "febi ramadhania dwiana"

List1.AddItem "nidia rossania"

List1.AddItem "mela widiyanti oktavia"

List1.AddItem "deviani prahasti"

End Sub