; vbCrLf & vbCrLf & _
                      "Developed & Designed By:" & vbCrLf & _
                      "-------------------------------------" & vbCrLf & _
                      "       Dhaval Faria" & vbCrLf & vbCrLf & _
                      "Concept & Developed of Contacts By:" & vbCrLf & _
                      "----------------------------------------------------" & vbCrLf & _
                      "       Dhaval Faria" & vbCrLf & vbCrLf & _
                      "Concept of Calender By:" & vbCrLf & _
                      "----------------------------------" & vbCrLf & _
                      "       Dhaval Faria" & vbCrLf & vbCrLf & _
                      "Development of Calender By:" & vbCrLf & _
                      "----------------------------------------" & vbCrLf & _
                      "       Dhaval Faria" & vbCrLf & vbCrLf & _
                      "Development and Concept of Whole Scheduler By:" & vbCrLf & _
                      "----------------------------------------------------------------------" & vbCrLf & _
                      "       Dhaval Faria" & vbCrLf & _
                      "       John Couture" & vbCrLf & vbCrLf & _
                      "Development and Concept of Whole Memo By:" & vbCrLf
    MoreCredits1
    End Function
    
    Private Function MoreCredits1()
    txtCredits.Text = txtCredits.Text & "-----------------------------------------------------------------" & vbCrLf & _