Visual Basic

<pre>Private Sub lblsave_Click(sender As Object, e As EventArgs) Handles lblsave.Click
        If ListBox1.SelectedItem = "" Then
            Dim r8 As DialogResult = MessageBox.Show(Me, "No file selected!",
                                   "Select files!", MessageBoxButtons.OK)


        Else
            Dim rw As DialogResult = MessageBox.Show(Me, "SAVE all TAGs?",
                           "Save tags!", MessageBoxButtons.OKCancel)
            If rw = DialogResult.OK Then




                If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False And CheckBox8.Checked = False Then
                    Dim r8 As DialogResult = MessageBox.Show(Me, "Select a tag to enter!",
                                  "Select tags!", MessageBoxButtons.OK)
                Else
                    Dim ite = ListBox1.SelectedItems
                    For Each item In ite
                        myMp3.Read(FolderBrowserDialog1.SelectedPath & "\" & item)
                        If CheckBox1.Checked = True Then
                            myMp3.ID3v2Tag.Title = label1.Text
                            myMp3.Write()
                        End If
                        If CheckBox2.Checked = True Then
                            myMp3.ID3v2Tag.Artist = Label2.Text
                            myMp3.Write()
                        End If


                        If CheckBox3.Checked = True Then
                            myMp3.ID3v2Tag.Album = Label3.Text
                            myMp3.Write()
                        End If


                        If CheckBox4.Checked = True And Label4.Text <> "" Then
                            On Error Resume Next
                            myMp3.ID3v2Tag.Year = Short.Parse(Label4.Text)
                            myMp3.Write()
                        End If
                        If CheckBox5.Checked = True And label5.Text <> "" Then
                            On Error Resume Next
                            myMp3.ID3v2Tag.TrackNum = Short.Parse(label5.Text)
                            myMp3.Write()

                        End If
                        If CheckBox6.Checked = True Then
                            myMp3.ID3v2Tag.Comments = label6.Text
                            myMp3.Write()
                        End If

                        If CheckBox7.Checked = True Then
                            myMp3.ID3v2Tag.Genre = label7.Text
                            myMp3.Write()
                        End If



                        If CheckBox8.Checked = True Then
                            If label10.Text <> "" Then
                                Dim pics = myMp3.ID3v2Tag.Frames.GetFrames(CommonMultipleInstanceID3v2FrameTypes.Picture)
                                myMp3.ID3v2Tag.Frames.Remove(pics)
                                myMp3.Write()
                                Dim AlbumArt As ID3v2PictureFrame = New ID3v23PictureFrame(CType(System.Drawing.Bitmap.FromFile(label10.Text), System.Drawing.Bitmap), PictureTypes.CoverFront, "Attached picture", TextEncodingTypes.ISO88591)
                                myMp3.ID3v2Tag.Frames.Add(AlbumArt)
                                myMp3.Write()
                            Else
                                Dim re As DialogResult = MessageBox.Show(Me, "Could not write image!",
                                  "Tagged files!", MessageBoxButtons.OK)
                            End If
                        End If
                    Next item

                End If
            End If
        End If

        Dim r9 As DialogResult = MessageBox.Show(Me, "Operation complete!",
                      "Tagged files!", MessageBoxButtons.OK)
    End Sub