Attribute VB_Name = "Module1"
Option Explicit

Public Sub DispCard(PicSource As PictureClip, PicObject As Image, ByVal cardtype As Integer, ByVal value As Integer)
    If value > 13 Then value = value - 13         ' 對該參數(shù)進行簡單的容錯處理
    PicSource.ClipX = (value - 1) * 73
    PicSource.ClipY = (cardtype - 1) * 99
    PicSource.ClipWidth = 73
    PicSource.ClipHeight = 99
    PicObject.Picture = PicSource.Clip
End Sub