เป็นโค้ดที่ใส่ปุ่ม เลือกไฟล์รูป ในเครื่องเราครับ
Private Sub cmdSelectFile_Click()

Dim strFileType As String, strFileTypeDesc As String
    
    strFileType = "*.bmp;*.jpg;*.gif;*.tif"
    strFileTypeDesc = "Pict Files (*.bmp,*.jpg,*.gif,*.tif)"
    
    strPictFile =GetOpenFile(strFileType, strFileTypeDesc)
    If strPictFile <> "NoFile" Then
        CustImage.Picture = strPictFile
    End If
End Sub

****แล้วระบบมันขึ้น Error ตรงที่ขี้เส้นใต้สีแดงอ่ะครับ *** มันหมายความว่าไงครับ