I found Syntax of Dim in MSDN:
Code:
Dim [WithEvents] varname[([subscripts])] [As [New] type] [, [WithEvents] varname[([subscripts])] [As [New] type]] . . .
Sorry for my careless