(SOLVED) A little read Dot

Start:
SplashImage, C:\Users\cbkrunch17\Desktop\Untitled.gif, B,,,haha
WinSet, TransColor, White, haha
Return,
 
!h::
 WinKill, haha
Return,

!s::
 Goto, Start
Return,


^!x::
ExitApp

sFile   := "C:\Crosshair.PNG" 

mDC_Scr   := Gdi_CreateCompatibleDC(0) 
pToken   := Gdip_Startup() 
pBitmap   := !hIcon ? Gdip_CreateBitmapFromFile(sFile) : Gdip_CreateBitmapFromHICON(hIcon) 
nWidth   := Gdip_GetImageWidth( pBitmap) 
nHeight   := Gdip_GetImageHeight(pBitmap) 
hBitmap   := !hIcon ? Gdip_CreateHBITMAPFromBitmap(pBitmap) : Gdi_CreateDIBSection(mDC_Scr, nWidth, nHeight) 
Gdip_DisposeImage(pBitmap) 
Gdip_Shutdown(pToken) 
oBitmap   := Gdi_SelectObject(mDC_Scr, hBitmap) 

If   hIcon 
   DllCall("DrawIconEx", "Uint", mDC_Scr, "int", 0, "int", 0, "Uint", hIcon, "int", nWidth, "int", nHeight, "Uint", 0, "Uint", 0, "Uint", 1|2) 

Gui, +LastFound -Caption +E0x80000 +ToolWindow +AlwaysOnTop
DllCall("UpdateLayeredWindow", "Uint", WinExist(), "Uint", 0, "Uint", 0, "int64P", nWidth|nHeight<<32, "Uint", mDC_Scr, "int64P", 0, "Uint", 0, "UintP", 255<<16|1<<24, "Uint", 2) 
Gui, Show,W%nWidth% H%nHeight%, Crosshair

Gdi_SelectObject(mDC_Scr, oBitmap) 
Gdi_DeleteObject(hBitmap) 
Gdi_DeleteDC(mDC_Scr) 

Gdi_CreateDIBSection(hDC, nW, nH, bpp = 32, ByRef pBits = "") 
{ 
   NumPut(VarSetCapacity(bi, 40, 0), bi) 
   NumPut(nW, bi, 4) 
   NumPut(nH, bi, 8) 
   NumPut(bpp, NumPut(1, bi, 12, "UShort"), 0, "Ushort") 
  
   Return   DllCall("gdi32\CreateDIBSection", "Uint", hDC, "Uint", &bi, "Uint", 0, "UintP", pBits, "Uint", 0, "Uint", 0) 
} 

Gdi_CreateCompatibleDC(hDC = 0) 
{ 
   Return   DllCall("gdi32\CreateCompatibleDC", "Uint", hDC) 
} 

Gdi_SelectObject(hDC, hGdiObj) 
{ 
   Return   DllCall("gdi32\SelectObject", "Uint", hDC, "Uint", hGdiObj) 
} 

Gdi_DeleteObject(hGdiObj) 
{ 
   Return   DllCall("gdi32\DeleteObject", "Uint", hGdiObj) 
} 

Gdi_DeleteDC(hDC) 
{ 
   Return   DllCall("gdi32\DeleteDC", "Uint", hDC) 
} 

Gdip_CreateBitmapFromFile(sFile) 
{ 
   VarSetCapacity(wFile, 1023) 
   DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sFile, "int", -1, "Uint", &wFile, "int", 512) 
   DllCall("gdiplus\GdipCreateBitmapFromFile", "Uint", &wFile, "UintP", pBitmap) 
   Return   pBitmap 
} 

Gdip_CreateBitmapFromHICON(hIcon) 
{ 
   DllCall("gdiplus\GdipCreateBitmapFromHICON", "Uint", hIcon, "UintP", pBitmap) 
   Return   pBitmap 
} 

Gdip_CreateHBITMAPFromBitmap(pBitmap, ARGB = 0) 
{ 
   DllCall("gdiplus\GdipCreateHBITMAPFromBitmap", "Uint", pBitmap, "UintP", hBitmap, "Uint", ARGB) 
   Return   hBitmap 
} 

Gdip_DisposeImage(pImage) 
{ 
   Return   DllCall("gdiplus\GdipDisposeImage", "Uint", pImage) 
} 

Gdip_GetImageWidth(pImage) 
{ 
   DllCall("gdiplus\GdipGetImageWidth", "Uint", pImage, "UintP", nW) 
   Return   nW 
} 

Gdip_GetImageHeight(pImage) 
{ 
   DllCall("gdiplus\GdipGetImageHeight", "Uint", pImage, "UintP", nH) 
   Return   nH 
} 

Gdip_Startup() 
{ 
   If Not   DllCall("GetModuleHandle", "str", "gdiplus") 
   DllCall("LoadLibrary"    , "str", "gdiplus") 
   VarSetCapacity(si, 16, 0), si := Chr(1) 
   DllCall("gdiplus\GdiplusStartup", "UintP", pToken, "Uint", &si, "Uint", 0) 
   Return   pToken 
} 

Gdip_Shutdown(pToken) 
{ 
   DllCall("gdiplus\GdiplusShutdown", "Uint", pToken) 
   If   hModule :=   DllCall("GetModuleHandle", "str", "gdiplus") 
         DllCall("FreeLibrary"    , "Uint", hModule) 
   Return   0 
}

SetTimer, SetPixel, 15
SetPixel:
 hDrwArea := DllCall("GetDC", "uint", Null)
 DllCall("SetPixel", "uint", hDrwArea, "int", 500, "int", 500, "uint", 255, "uint", 00, "uint", 00)
 DllCall("ReleaseDC", UInt, 0, UInt, hDrwArea)
 DllCall("FreeLibrary", "UInt", hDrwArea)

Krogdor's dosn;t work.

I like the one I have. Thanks anyways.

SetTimer, SetPixel, 15
SetPixel:
 hDrwArea := DllCall("GetDC", "uint", Null)
 DllCall("SetPixel", "uint", hDrwArea, "int", A_ScreenWidth/2, "int", A_ScreenHeight/2, "uint", 255, "uint", 0, "uint", 0)
 DllCall("ReleaseDC", UInt, 0, UInt, hDrwArea)
 DllCall("FreeLibrary", "UInt", hDrwArea)

Splashimage, 1:, % "B W2 H2 CWFF0000 X" . A_ScreenWidth/2 . " Y" . A_ScreenHeight/2,,, Dot

OnExit, ExitRoutine
SetTimer, SetPixel, 15
hDrwArea := DllCall("GetDC", "uint", Null)
SetPixel:
DllCall("SetPixel", "uint", hDrwArea, "int", A_ScreenWidth/2, "int", A_ScreenHeight/2, "uint", 255, "uint", 0, "uint", 0)
Return

ExitRoutine:
DllCall("ReleaseDC", UInt, 0, UInt, hDrwArea)
DllCall("FreeLibrary", "UInt", hDrwArea)
ExitApp

OnExit, ExitRoutine
X := 10 ;change for how wide you want it
Y := 10 ;change for how tall you want it
XX1 := ((A_ScreenWidth/2)-(X/2))
YY1 := ((A_ScreenHeight/2)-(Y/2))
SetTimer, SetPixel, 15
hDrwArea := DllCall("GetDC", "uint", Null)
SetPixel:
Loop, %X% {
  B_Index := A_Index
  Loop, %Y%
    DllCall("SetPixel", "uint", hDrwArea, "int",  XX1 + B_Index, "int",  YY1 + A_Index, "uint", 255, "uint", 0, "uint", 0)
}
Return

ExitRoutine:
DllCall("ReleaseDC", UInt, 0, UInt, hDrwArea)
DllCall("FreeLibrary", "UInt", hDrwArea)
ExitApp

Gui, Show, W%nWidth% H%nHeight% X100 Y100, Crosshair

diam = 8	; diameter of dot

Gui -Caption +AlwaysOnTop
Gui margin,0,0
Gui add, ListView,	w%diam% h%diam%	-Hdr -E0x200 BackgroundRed
SysGet, mon, MonitorWorkArea		; get screen size (to include taskbar height delete text 'WorkArea')
Gui show, % "x" monRight//2-(diam//2) " y" monBottom//2-(diam//2)
WinSet, Region, 0-0 W%diam% H%diam% E, A		; make it circular
return


Esc::
ExitApp