VB原代码用于角度变换,点击变换大致角度,界面会自动跳转