As Prerak has already stated your question isn't clear.
First of make sure your code is as readable as possible. Don't write
it makes your code hard to read when you're doing it a lot of places. And remove code that you know doesn't have anything to do with your problem, like I guess you've done now, after you got no helpful answers for your last question.
Here is how I would have posted your code.
Dim waWidth As Integer = Screen.PrimaryScreen.WorkingArea.Width
Dim waHeight As Integer = My.Computer.Screen.WorkingArea.Height
Dim screenHeight As Integer = My.Computer.Screen.Bounds.Height
ElseIf MousePosition.Y > waWidth - (screenHeight - waHeight)
Form2.Size = New System.Drawing.Size(waWidth, waHeight / 2)
Form2.Location = New Point(0, (waHeight / 1.82))
Then when you have made your code as readable as possible. Make sure you state clearly and precisely what your problem actually is. What exception do you get? what behavior are you seeing and what did you expect?
I know English isn't the primary language of many people, including myself, and sometimes it can be hard to explain things, but you have to do your best, explain it in 3 different ways if you're not sure others can understand problem. 3 explanations of the same problem is better than one explanation that no one really understand.