YASさんありがとうございますｗｗ
あのまたエラーが出ます（泣

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
    Dim FileName As String

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

ってでます。

どうすればいいでしょうか？