'BGM Changer for Combat Arms
`By Samueldo
`If you really badly want to leech this, then go ahead BUT give me credit or I will find you and murder you.
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
`Check the folder exists
If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
`Make sure that you can edit the BGM file
System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", System.IO.FileAttributes.Normal)
`Rename the original BGM file so you still have it for emergencies
Rename(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", TextBox1.Text + "\Game\BGM\BGM_LOOP_2.mp3")
`Move the new music file
IO.File.Move(TextBox2.Text + TextBox3.Text, TextBox1.Text + "\Game\BGM\")
`Rename the new music file
Rename(TextBox1.Text + "\Game\BGM\" + TextBox2.Text, TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3")
Else
`If it doesn't work, this will be shown
Label6.Text = "Failed!"
End If
`Show a success message
Label6.Text = "Replaced!"
End Sub

That would be nice
.