All pastes #928610 Raw Edit

Someone

public text v1 · immutable
·published 2008-03-05 04:43 UTC
rendered paste body
Private Sub cmdSaveTask_Click()
    Dim intTask As Integer
    intTask = intTask + 1
    strTaskname(intTask) = txtTaskName.Text
    
    Savestring HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks", "Task" & intTask, strTaskname(intTask)
    fraNewTask.Visible = False
End Sub