'* ************************************************************** *
'*    程序名称：MDIForm1.frm
'*    程序功能：让背景图片铺满整个MDIForm窗口
'*    作者：lyserver
'*    联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Dim WithEvents picBackground As PictureBox

Private Sub MDIForm_Load()
    Set picBackground = Me.Controls.Add("VB.PictureBox", "picBackground")
    picBackground.Appearance = 0
    picBackground.BorderStyle = 0
    picBackground.Align = 0
    picBackground.ScaleMode = vbPixels
    picBackground.AutoRedraw = False
    Set picBackground.Picture = LoadPicture("g:\me.jpg")
    picBackground.Visible = True
End Sub

Private Sub MDIForm_Resize()
    picBackground.Move 0, 0, Me.Width, Me.Height
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Me.Controls.Remove "picBackground"
End Sub

Private Sub picBackground_Paint()
    Dim i As Long, j As Long, w As Long, h As Long

w = picBackground.ScaleX(picBackground.Picture.Width, vbHimetric, vbPixels)
    h = picBackground.ScaleY(picBackground.Picture.Height, vbHimetric, vbPixels)
    For i = 0 To Me.Width \ 15 \ w + 1
        For j = 0 To Me.Width \ 15 \ h + 1
            picBackground.PaintPicture picBackground.Picture, i * w, j * h
        Next
    Next
End Sub
'* ************************************************************** *
'*    程序名称：MDIForm1.frm
'*    程序功能：让背景图片铺满整个MDIForm窗口
'*    作者：lyserver
'*    联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Dim WithEvents picBackground As PictureBox

Private Sub MDIForm_Load()
    Set picBackground = Me.Controls.Add("VB.PictureBox", "picBackground")
    picBackground.Appearance = 0
    picBackground.BorderStyle = 0
    picBackground.Align = 0
    picBackground.ScaleMode = vbPixels
    picBackground.AutoRedraw = False
    Set picBackground.Picture = LoadPicture("g:\me.jpg")
    picBackground.Visible = True
End Sub

Private Sub MDIForm_Resize()
    picBackground.Move 0, 0, Me.Width, Me.Height
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Me.Controls.Remove "picBackground"
End Sub

Private Sub picBackground_Paint()
    Dim i As Long, j As Long, w As Long, h As Long

w = picBackground.ScaleX(picBackground.Picture.Width, vbHimetric, vbPixels)
    h = picBackground.ScaleY(picBackground.Picture.Height, vbHimetric, vbPixels)
    For i = 0 To Me.Width \ 15 \ w + 1
        For j = 0 To Me.Width \ 15 \ h + 1
            picBackground.PaintPicture picBackground.Picture, i * w, j * h
        Next
    Next
End Sub

由于没有看清楚问题，后来才知道这个朋友是想让背景图片铺满整个MDIForm窗口，而MDIForm与Form有一些区别，上述代码根本实现不了，于是便重新写了以下代码：

摘自：在VB中如何让背景图片铺满整个MDIForm

更多精彩>>>