Perintah untuk “Tampil” dengan sekali klik pada Common

Private sub namecommond_click()                                                                        

Text1.text= “input 1”

Text2.text=“input 2”

 Text3.text=“input 3”

Text4.text=“input 4”

Textn.text=“input n”

End sub

Contoh :

Private sub cmdtampil_click()

Textnik.text= “ 12121334“

Textnm.text=“ momon”

Textkls.text=“ 12.3B.15”

Textalmt.text= “ Cikampek”

Textlp.text=“ 0909090”

End sub

Commond “tampil” sudah ada kode listing.

Ketika di klik  Common Tampil nya maka akan seperti ini :