اشکال کد زیر چیست؟

Public Declare Function Escape Lib "gdi32" (ByVal hdc As Long, ByVal nEscape As Long, ByVal nCount As Long, ByVal lpInData As String, lpOutData As Any) As Long

Sub Command1_Click()
Const PORTRAIT = 1
Const LANDSCAPE = 2
Const GETSETPAPERORIENT = 30
Dim Orient As OrientStructure ***
Printer.Print ""
Orient.Orientation = LANDSCAPE
x% = Escape(Printer.hdc, GETSETPAPERORIENT, Len(Orient), "", Null)
Print x%
End Sub

دوستان عزیز این کد برای پرینت گرفتن فرم بصورت عمودی می باشد اما از خطی که سه ستاره (***)دارد خطا می گیرد لطفا مرا راهنمایی فرمایید

اگه جوابتون رو هنوز نگرفتین باید بگم مشکل از مقداردهی نا مناسب در ثابتها میباشد که باید قبل از تابع مقدار دهی شود