Private Sub cmdSaveTask_Click()
    Dim itmX As ListItem
    
    Me.Hide                             ' Hide window for now

    strNewTaskName = txtTaskNewName.Text
    
    Set itmX = frmMain.lstTasks.ListItems.Add(, , strNewTaskName)    ' Task
    
    itmX.SubItems(1) = strDueDate
    
    txtTaskDueDate.Text = ""
    txtTaskNewName.Text = ""
    
    objCalendar.Value = Date             ' Set the date to today
End Sub