用一个PictureBox控件做中转站即可实现(Command控件的Picture属性要预先放入你需要的图片):
Private Sub Form_Load()
Picture1.Visible = False
Picture1.AutoRedraw = True
Picture1.BorderStyle = 0
Picture1.Width = Command1.Width
Picture1.Height = Command1.Height
Picture1.PaintPicture Command1.Picture, 0, 0, Picture1.Width, Picture1.Height
Command1.Picture = Picture1.Image
End Sub
温馨提示:内容为网友见解,仅供参考