Dim kk, fp As String
fp=File1.Path '加上这一句
If Right(fp, 1) <> "\" Then fp = File1.Path + "\"
kk = fp + File1.FileName
Picture1.Picture = LoadPicture(kk)
fp=File1.Path '加上这一句
If Right(fp, 1) <> "\" Then fp = File1.Path + "\"
kk = fp + File1.FileName
Picture1.Picture = LoadPicture(kk)
设置Stretch属性为true