1、クリップボードにBMPデータがあるか調べる。
2、あったらクリップボードを開ける。
3、データのハンドルを調べる。
4、そのハンドルから画像の大きさを調べる。
5、クリップボードを閉じる。
多分こんな感じです。
#uselib "user32.dll"
#define CF_BITMAP	2
#func OpenClipboard "OpenClipboard" sptr
#func CloseClipboard "CloseClipboard"
#cfunc IsClipboardFormatAvailable "IsClipboardFormatAvailable" sptr
#cfunc GetClipboardData "GetClipboardData" sptr
#uselib "gdi32.dll"
#func GetObjectA "GetObjectA" sptr,sptr,sptr
if IsClipboardFormatAvailable(CF_BITMAP){
		dim cBM,16
		OpenClipboard hWnd
		hBitmap = GetClipboardData(CF_BITMAP)
		GetObjectA hBitmap,32,varptr(cBM)//(BITMAP 構造体)
		mes "x="+cBM(1)+" y="+cBM(2)
		CloseClipboard
	}else{
		mes "クリップボードにBMPがありません。"
	}