Private Sub pboxPlatno_MouseMove(sender As Object, e As MouseEventArgs) Handles pboxPlatno.MouseMove

If Timer1.Enabled = False Then
Return
End If

Select Case e.Location.X
Case Is < d.Sirka \ 2
d.Pozice = 0
Case Is > pboxPlatno.Width - (d.Sirka \ 2)
d.Pozice = pboxPlatno.Width - d.Sirka
Case Else
d.Pozice = e.Location.X - (d.Sirka \ 2)
End Select

If Timer1.Enabled = False Then
m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
pboxPlatno.Refresh()
End If

End Sub