>Btton1はすでにclassで'Friend WithEvents Button1 As System.Windows.Forms.Button' として既に宣言されています。

デザイナで自分でButton1を配置したのだと思います。
Button1が２つあるとエラーになります。

Dim WithEvents Button1 As New Button

を一度消した後，デザイナでbutton1を消し，再び

Dim WithEvents Button1 As New Button

を書いてください。
もしくは新しいプロジェクトを作成して私のコードをコピーしてください。

なお，私のコードはコードだけで完結するために，通常はデザイナで配置するコントロールも
コードで配置しています。自分でデザイナで配置する場合は，

    Dim WithEvents Button1 As New Button
    Dim WithEvents Button2 As New Button
    Dim WithEvents Button3 As New Button
    Dim WithEvents TrackBar1 As New TrackBar
    Dim WithEvents Timer1 As New Timer
    Dim WithEvents OpenFileDialog1 As New OpenFileDialog

の部分を消してください。