要實現圖片更換功能，可以使用PictureBox控件來顯示圖片，并用OpenFileDialog控件來選擇要更換的圖片。以下是一個簡單的示例：
示例代碼如下：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim openFileDialog1 As New OpenFileDialog()
' 設置可以選擇的文件類型
openFileDialog1.Filter = "圖片文件|*.jpg;*.jpeg;*.png;*.bmp"
' 如果選擇了文件并點擊了“確定”按鈕
If openFileDialog1.ShowDialog() = DialogResult.OK Then
' 將選擇的圖片路徑賦給PictureBox控件的ImageLocation屬性
PictureBox1.ImageLocation = openFileDialog1.FileName
End If
End Sub
這樣，當點擊Button控件時，會彈出一個文件選擇對話框，選擇圖片后，PictureBox控件會顯示選擇的圖片。
