Bank glitch

[Chris2]

when i withdraw currency from my bank. as an example lets say 400.000 gold

it will only withdraw a random number like 5000

my bank withdraw looks like

```
' bank
Private Sub picBank_DblClick()
Dim bankNum As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

DragBankSlotNum = 0

bankNum = IsBankItem(BankX, BankY)
If bankNum <> 0 Then
If GetBankItemNum(bankNum) = ITEM_TYPE_NONE Then Exit Sub

If Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CURRENCY Then
CurrencyMenu = 3 ' withdraw
lblCurrency.Caption = "How many do you want to withdraw?"
tmpCurrencyItem = bankNum
txtCurrency.text = vbNullString
picCurrency.Visible = True
txtCurrency.SetFocus
Exit Sub
End If

WithdrawItem bankNum, 0
Exit Sub
End If

' Error handler
Exit Sub
errorhandler:
HandleError "picBank_DlbClick", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

```
i can't see the error :/

[Stein]

The issue isn't there, it's on PicCurrency

[Chris2]

> The issue isn't there, it's on PicCurrency

sweet so it's not me being blind :p

do you happen to know where the "error" is?

[Zeno]

I don't, but I bet you'll find it if you search your source for PicCurrency. VB6 has a pretty good built-in search function. :)

[Chris2]

> I don't, but I bet you'll find it if you search your source for PicCurrency. VB6 has a pretty good built-in search function. :)

yea i already found PicCurrency but i dont know what the issue is :)

[Zeno]

> yea i already found PicCurrency but i dont know what the issue is  :)

Based on Stein's advice, search your _code _using search term "PicCurrency" to find where the error is. He doesn't mean it's visually or literally on the picture, but that it happens where the code for PicCurrency is.

[Stein]

I assume it is, that's where I remember an issue being at anyway.