Anyone can help me get this working please

Question

Error 1
'No' is not a member of 'DJ_APP.Module1.TrackType'.
D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
32 9
DJ APP
Error 2
'No' is not a member of 'DJ_APP.Module1.TrackType'.
D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
34 27
DJ APP
Error 3
'no' is not a member of 'DJ_APP.Module1.TrackType'.
D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
79 9
DJ APP
Error 4
'no' is not a member of 'DJ_APP.Module1.TrackType'.
D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
81 27
DJ APP
Error 5
Expression expected. D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
93 105
DJ APP
Error 6
Identifier expected. D:\Year 2 HNC 10 feb\HNCD Unit 20 - Event Driven Programming Solutions (NeathAfan)\DJAPP\DJ APP\DJ APP\Form3.vb
103 59
DJ APP
Public Class Form3
    Dim numofrecords As Integer
    Dim Filename As String
    Dim Tableformat As String = "(0,-8)(1,-20)(2,-20)(3,-10)(4,-20)"
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "Tracks.dat", OpenMode.Random, , , Len(Tracks))
        numofrecords = LOF(1) / Len(Tracks)
        FileClose(1)
    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        ' Get the song info from the form
        Tracks.TrackID = txtTrackID.Text
        Tracks.Title = txttitle.Text
        Tracks.Artist = txtartist.Text
        Tracks.Genre = txtGenre.Text
        Tracks.Duration = txtduration.Text
        Tracks.era = txtera.Text
        ' write the record to file
        FileOpen(1, "Tracks.dat", OpenMode.Random, , , Len(Tracks))
        FilePut(1, Tracks, numofrecords + 1)
        'Close file
        FileClose(1)
        ' add one to the number of records
        numofrecords = numofrecords + 1
        Tracks.No = numofrecords
        txtTrackID.Text = Tracks.No
        ' place cursor in id box
        txtTrackID.Focus()
        'clear form
        txtartist.Text = ""
        txtduration.Text = ""
        txtera.Text = ""
        txtGenre.Text = ""
        txttitle.Text = ""
        txtTrackID.Text = ""
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtartist.Text = ""
        txtduration.Text = ""
        txtera.Text = ""
        txtGenre.Text = ""
        txttitle.Text = ""
        txtTrackID.Text = ""
    End Sub
    Private Sub lstsongs_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstsongs.SelectedIndexChanged
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        'set the filename
        Filename = "Tracks.dat"
        'open the file
        FileOpen(1, FileName, OpenMode.Random, , , Len(Tracks))
        'check numnber of records in file
        numofrecords = LOF(1) / Len(Tracks)
        'close file
        FileClose(1)
        Tracks.no = numofrecords + 1
        txtTrackID.Text = Tracks.no
    End Sub
    Private Sub btnList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnList.Click
        'clear list box
        lstsongs.Items.Clear()
        'headings
        lstsongs.Items.Add(String.Format(TableFormat, "Track ID", "Title", "Artist", "Genre", "Duration",
        'open file
        FileOpen(1, Filename, OpenMode.Random, , , Len(Tracks))
        ' Add records to list box 
        Do While Not EOF(1)
            FileGet(1, Tracks)
            lstsongs.Items.Add(String.Format(Tableformat, _ Tracks.TrackID = txtTrackID.Text,
            Tracks.Title, Tracks.Artist, Tracks.Genre, _
            Tracks.Duration, Tracks.era))
        Loop
        'close file
        FileClose(1)
    End Sub
End Class

Answer 1

It's not all there and as said before try using the Inset Code Block button in the toolstrip at the top of a post you are editing for inserting your code in so it displays correctly. If you hover your mouse over each tool in the toolbar at the top of a post
you are editing a tooltip will display providing what each tool is for. Like
B is for Bold.
You don't display any code for DJ_APP.Module1 or provide what you are attempting to do with the code you have and nobody has a .Dat file that you may be using for testing with.
And it seems like you may be using relatively old style coding techniques when databases like
Microsoft SQL Server Compact 4.0 are free and downloadable from Microsoft and others unless you enjoy using .Dat files for some reason.
Plus you could use DataGridView for displaying things like ("TableFormat, "Track ID", "Title", "Artist", "Genre", "Duration", 'open file") whatever all that is with the DGV using a DataTable since
different fields in a DataTable can be different types. AFAIK you could even store all the audio tracks in a database.
I would recommend you take a step back to design your GUI regarding what controls it will use for what it needs to do as well as what capabilities can be used with those controls and learn about that for a while before writing any code.
I would've researched DJ apps to see what visual styles they have and how they work before designing a GUI and writing any code.
Google search results for "Radio station music scheduling software"
La vida loca