module1.bas

很多的vb经典源代码

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         ' 对该参数进行简单的容错处理
    PicSource.ClipX = (value - 1) * 73
    PicSource.ClipY = (cardtype - 1) * 99
    PicSource.ClipWidth = 73
    PicSource.ClipHeight = 99
    PicObject.Picture = PicSource.Clip
End Sub