1 sub RegCallback {
2	$CB = shift;
3	$HS = $CB->GetInterface();
4	return;
5	}