Advertisement
Guest User

Untitled

a guest
Jun 15th, 2019
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. If Screen.AllScreens(intMonitorSelected).Bounds.Height = "1080" Then
  2. StartX = Screen.AllScreens(intMonitorSelected).Bounds.Left + TenStartX
  3. EndX = Screen.AllScreens(intMonitorSelected).Bounds.Left - StartX + TenEndX
  4. StartY = Screen.AllScreens(intMonitorSelected).Bounds.Bottom - TenStartY
  5. EndY = Screen.AllScreens(intMonitorSelected).Bounds.Bottom - StartY - TenEndY
  6. ElseIf Screen.AllScreens(intMonitorSelected).Bounds.Height = "1440" Then
  7. StartX = Screen.AllScreens(intMonitorSelected).Bounds.Left + FourteenStartX
  8. EndX = Screen.AllScreens(intMonitorSelected).Bounds.Left - StartX + FourteenEndX
  9. StartY = Screen.AllScreens(intMonitorSelected).Bounds.Bottom - FourteenStartY
  10. EndY = Screen.AllScreens(intMonitorSelected).Bounds.Bottom - StartY - FourteenEndY
  11. End If
  12.  
  13. Test.Image = GetGameImage(48, 210, 53, 35, 63, 220, 70, 47)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement