device.Transform.Projection = Matrix.PerspectiveFovLH((sngAngle)math.PI/4.0F, 1.0F, 1.0F, 3.25F)
One problem, this is not how you do casting in VB.NET, and you cannot cast to a variable. To cast in VB.NET use the DirectCast keyword.
Here is an example of how that line would look.
device.Transform.Projection = Matrix.PerspectiveFovLH(Convert.ToSingle(Math.PI) /4.0F, 1.0F, 1.0F, 3.25F)
If you want, you can download a sample like this here:
http://www.directx4.net/tutorials/15.zip