Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.MoveFile("C:/Test1/Muster.jpg", _
        "C:/Test2/Muster.jpg")
 
    End Sub