Something

Option Explicit

Private Sub cmdAddTask_Click()
    ' We want to add a new task to the list then save it to the registry then
    ' notify Bill
    
    fraNewTask.Visible = True
    
    bNewTask = True
    
    If bNewTask = True Then
        Me.Caption = "Taskmaster™ by D-Code Software -- Adding Task"
        lstPriority.AddItem "High"
        lstPriority.AddItem "Low"
    Else
        Exit Sub
    End If
End Sub

Private Sub cmdCancel_Click()
    fraNewTask.Visible = False
End Sub

Private Sub cmdMarkCompl_Click()
    ' When this is hit, notify Bill so he can verify it.
    
    If sckServer.State = sckListening Then
    
    Else
        
End Sub

Private Sub cmdOnline_Click()
    If cmdOnline.Caption = "Go Online" Then
        sckServer.LocalPort = 9001
        sckServer.Close                             ' Close current connection
        sckServer.Listen                            ' Listen on port 9001
        cmdOnline.Caption = "Go Offline"
    ElseIf cmdOnline.Caption = "Go Offline" Then
        sckServer.Close                             ' Close and shutdown server
        cmdOnline.Caption = "Go Online"
    Else
        Exit Sub
    End If
End Sub

Private Sub cmdSaveTask_Click()
    intTasks = intTasks + 1
    strTaskname(intTasks) = txtTaskName.Text
    
    strTask = CStr(intTasks)
    Savestring HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks", "Task" & intTasks, strTaskname(intTasks)
    Savestring HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks", "Tasks", strTask

End Sub

Private Sub Form_Load()
    fraNewTask.Visible = False
    
    lblDate.Caption = Format(Date, "dddd, MMMM d, yyyy")
    
    LoadTasks
    
    If sckServer.State = 2 Then
        cmdOnline.Caption = "Go Offline"
    Else
        cmdOnline.Caption = "Go Online"
    End If
End Sub

Private Sub LoadTasks()
    Dim intTotalTasks As Integer
    intTasks = 0                     ' Reset
    
    For intTasks = 1 To 12 - 1
        strTask = CStr(intTasks)
        
        strTaskname(intTasks - 1) = Getstring(HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks\", "Task" & strTask - 1)
        
        If intTasks = 0 Then
            MsgBox "Nothing to do!", vbExclamation, "Done"
            Exit For
        Else
            lstToDo.AddItem strTaskname(intTasks - 1)
        End If
    Next intTasks
    
End Sub

Private Sub optDueToday_Click()
    If optDueToday.Value = True Then
        Me.Caption = "Taskmaster™ by D-Code Software -- Adding Task for " & lblDate
    End If
End Sub

Private Sub sckServer_Close()
    sckServer.SendData "STATE0"
    DoEvents
End Sub

Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
    sckServer.Close
    sckServer.Accept requestID
End Sub

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
    Dim strDataIn As String
    Dim strNewData() As String
    
    sckServer.GetData strDataIn
    
    strNewData = Split(strDataIn, ":")
    
    Select Case strNewData
        Case "NEWTASK"
        Case "DELTASK"
        Case Else
            Exit Sub
    End Select
End Sub

Private Sub tmrTime_Timer()
    lblTime.Caption = Format(Time, "hh:mm:ss am/pm")
End Sub