Private Function checkDJ(ByVal username As String, ByVal password As String) As Boolean
        Dim dj_file As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\djs.txt")
        Dim djs() As String = dj_file.Split(";")
        For Each curdj In djs
            If curdj <> "" Then
                Dim dj_split() As String = curdj.Split("=")
                If username = dj_split(0) And password = dj_split(1) Then
                    Return True
                End If
            End If
        Next
        Return False
    End Function