Private Sub cmdSSMap_Click()
Dim Rec As RECT, hdc As Long, i As Long
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ' *************
    ' Plain Broken. Direct3D8 is a fucking pain in the ass.
    ' Please note that this is a WORKAROUND to get it to work right now.
    ' Will have to look into a proper fix in the future.
    ' *************

    hdc = GetDC(frmMain.picScreen.hwnd)
    BitBlt frmMain.picScreen.hdc, 0, 0, ScreenX, ScreenY, hdc, 0, 0, SRCCOPY
    Call ReleaseDC(frmMain.picScreen.hwnd, hdc)

    Do While FileExist("\screenshots\" & str$(i) & ".bmp") = False
        i = i + 1
    Loop

    SavePicture frmMain.picScreen.Image, App.Path & "\screenshots\" & str$(i) & ".bmp"

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