动手画是最简单的方法

直接在窗体中做个IMAGE控件，然后把其他东西都放到图片上不就可以了？

Private Sub Form_Click()
With CommonDialog1 '调用CommonDialog1控件
.DialogTitle = "PictureAll" '打开对话框名为"PictureAll"
.CancelError = False
.Filter = "PictureAll|*.jpg;*.bmp;*.gif" '加载打开图片的格式
.ShowOpen '显示打开对话框
If Len(.FileName) = 0 Then '如果没有选中文件时
Exit Sub '退出该过程
End If
End With

Form1.Picture = LoadPicture(CommonDialog1.FileName) '打开你选择的任意一份图片文件
End Sub

Private Sub Form_Load()
Form1.Picture=loadpicture("c:\***\*.jpg") '启动窗体时打开一个图片

只要有图片可装饰的地方就用Picture属性装饰就可以