VBa :多图片框上的多张图片

Sub LoadImages()
    Dim picBox As Control
    Dim imagePath As String
    
    ' 假设有三个图片框控件，分别命名为PicBox1, PicBox2, PicBox3
    ' 图片路径可以根据实际情况修改
    imagePath = "C:\Images\"
    
    For Each picBox In Me.Controls
        If TypeName(picBox) = "PictureBox" Then
            Select Case picBox.Name
                Case "PicBox1"
                    picBox.Picture = LoadPicture(imagePath & "image1.jpg")
                Case "PicBox2"
                    picBox.Picture = LoadPicture(imagePath & "image2.jpg")
                Case "PicBox3"
                    picBox.Picture = LoadPicture(imagePath & "image3.jpg")
            End Select
        End If
    Next picBox
End Sub