Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FUNCTION____________________________________
- Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
- Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
- Dim formNewLeft As Integer = Val(Val(screenWidth) / Val(2)) - Val(Val(Me.Width) / Val(2))
- Dim formNewTop As Integer = Val(Val(screenHeight) / Val(2)) - Val(Val(Me.Height) / Val(2))
- Me.Left = formNewLeft
- Me.Top = formNewTop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement