how can i make the cursor look different

Here's a quick and simple drawing example:

Graphics 640,480,0,0

Global mx:Float = -1
Global my:Float = -1
Global oldmx:Float
Global oldmy:Float

While Not KeyDown(KEY_ESCAPE)

	
	If MouseDown(1) Then
		If Mx And My > -1 Then
			oldMx = mx
			OldMy = my
		Else
			oldMx = MouseX()
			oldMy = MouseY()
		EndIf
		mx = MouseX()
		my = MouseY()
		For f:Int = 0 To 1 'draw it twice since we don't want to have flickering in fullscreen when we flip
			SetColor(255,0,0)
			DrawLine(oldMX, oldMY, mx, my)
			Flip
		Next
	Else
		mx = -1
		my = -1		
	EndIf
	
	
	FlushMem
Wend
End

just before you draw your cursor image (not shown in above code), use SetColor(255,255,255)