いつも参考にさせていただいています。
下記のコードですが、XPでは問題有りませんが98では
オーバーフローになります。
API若しくは変数の記述でXPと98では工夫が必要なのでしょうか？
宜しくご教授ください。

Private Sub CardDrawDC(hdc&)
'hDC上にカードを描く
Dim hPen&, hOldPen&, hBrush&, hOldBrush&
Dim hFont&, hOldFont&
Dim MyFont As FontEx, MyLog As LOGFONT
Dim MyLogB As LOGFONT
Dim MyText$
Dim MyRect As RECT
Dim hBmpDC&, hBMP&, hOldBmp&
SetBkMode hdc, TRANSPARENT
'背景を白で塗りつぶす
hPen = GetStockObject(NULL_PEN)
hBrush = GetStockObject(vbWhite)
    SelectObject hdc, hPen
    SelectObject hdc, hBrush
    Rectangle hdc, 0, 0, 200, 286
DeleteObject SelectObject(hdc, hPen)
DeleteObject SelectObject(hdc, hBrush)
'用紙枠
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 15, 20, ByVal 0&
LineTo hdc, 195, 20
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 195, 20, ByVal 0&
LineTo hdc, 195, 280
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 195, 280, ByVal 0&
LineTo hdc, 15, 280
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 15, 280, ByVal 0&
LineTo hdc, 15, 20
DeleteObject SelectObject(hdc, hOldBrush)

回答ではないのですが、コードを載せるなら動くコードを乗せてください。
具体的なエラーとその行などは載せてもらわないと、動かさないとわからないです。

どうやら個体差（環境）の問題のようでした。
他のＰＣでは正常に動きました。