End Sub Private Sub Text1_Change() End Sub Private Sub lblTitle_Click() End Sub