Unnamed

public text v1 · immutable

#956414

·published 2008-03-25 08:20 UTC

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