Assigning Object to value is not producing compiler error -

comiler is not throwing errorcase1)
=====================
private sub command1_click()
Dim x As new StdFont
x=2
end sub


Note :
====

In the above code i am creating an object for stdfont class & then i am assigning some value/string to that object . if i run the above code i am not getting any error .

but i am expecting that compiler will throw a "data type mismatch error"

but if i run the above code with the set keyword (see code below)during assigning i am getting comiler error.

comiler is throwing errorcase2)
==================
private sub command1_click()
Dim x As new StdFont
set x=2
end sub

My question is , in both the cases case1 & case2 i am handling the object wrongly ( ie x=2 and set x=2). in both cases compiler should throw an error but it is throwing error for case 2 only . why ??