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

    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