Private Sub cmdcancle_click()
unload Me
End Sub
Private Sub frmaddpoem_load()
cleartextbox
initTC
initlb
End Sub
Sub cleartextbox()
Dim i As Integer
For i = 0 To 3
txtpoem(i).Text = ""
Next i
End Sub
Private Sub cmdcancle_click()
unload Me
End Sub
Private Sub frmaddpoem_load()
cleartextbox
initTC
initlb
End Sub
Sub cleartextbox()
Dim i As Integer
For i = 0 To 3
txtpoem(i).Text = ""
Next i
End Sub