Dim X1, Y1
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = Picture1.Left - (X1 - X)
Picture1.Top = Picture1.Top - (Y1 - Y)
End Sub
WebBrowser1.Navigate "http://www.runescape.com/aff/runescape/worldmap/popupworldmap.ws"
If URL = "http://www.runescape.com/" Then Cancel = True

