Private Sub CmdMasuk_Click()
List1.AddItem Text1
Text1 = ""
Text1.SetFocus
End Sub

Private Sub CmdKosong_Click()
List1.Clear
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then CmdMasuk_Click
End Sub