Marcke

I can't find out where ' Currency is ! :3 Thank you :) ``` Public Sub UpdateDescWindow(ByVal itemnum As Long, ByVal x As Long, ByVal y As Long) Dim i As Long Dim FirstLetter As String * 1 Dim Name As String Dim Item1 As Long Dim Item2 As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler FirstLetter = LCase$(Left$(Trim$(Item(itemnum).Name), 1)) If FirstLetter = "$" Then Name = (Mid$(Trim$(Item(itemnum).Name), 2, Len(Trim$(Item(itemnum).Name)) - 1)) Else Name = Trim$(Item(itemnum).Name) End If ' check for off-screen If y + frmMain.picItemDesc.height > frmMain.ScaleHeight Then y = frmMain.ScaleHeight - frmMain.picItemDesc.height End If ' set z-order frmMain.picItemDesc.ZOrder (0) With frmMain .picItemDesc.top = y .picItemDesc.Left = x .picItemDesc.Visible = True If LastItemDesc = itemnum Then Exit Sub ' exit out after setting x + y so we don't reset values ' set the name Select Case Item(itemnum).Rarity Case 0 ' white .lblItemName.ForeColor = RGB(255, 255, 255) Case 1 ' green .lblItemName.ForeColor = RGB(117, 198, 92) Case 2 ' blue .lblItemName.ForeColor = RGB(103, 140, 224) Case 3 ' maroon .lblItemName.ForeColor = RGB(205, 34, 0) Case 4 ' purple .lblItemName.ForeColor = RGB(193, 104, 204) Case 5 ' orange .lblItemName.ForeColor = RGB(217, 150, 64) End Select ' set captions .lblItemName.Caption = Name .lblItemDesc.Caption = Trim$(Item(itemnum).Desc) ' render the item BltItemDesc itemnum End With ' Error handler Exit Sub errorhandler: HandleError "UpdateDescWindow", "modGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` Code tags, as you were citizen.