Private Sub punkt_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
On Error GoTo Err
Dim dtop As Integer
Dim dwidth As Integer
If Button = vbLeftButton Then
Select Case Index
Case 0
    dtop = cmd.Top
    Punkt(Index).Move Punkt(Index).Left + X - XP0, Punkt(Index).Top + Y - YP0
    cmd.Top = Punkt(Index).Top
    cmd.Height = cmd.Height + (dtop - cmd.Top)
    cmd.Left = Punkt(Index).Left
    cmd.Width = (Punkt(4).Left + 80 - cmd.Left)
Case 1
    If Not Punkt(Index).Top + 85 >= Punkt(6).Top Then
    Punkt(Index).Move Punkt(Index).Left, Punkt(Index).Top + Y - P1
    dtop = cmd.Top
    cmd.Top = Punkt(Index).Top
    cmd.Height = cmd.Height + (dtop - cmd.Top)
    End If
Case 2
    dtop = cmd.Top
    dwidth = cmd.Width
    Punkt(Index).Move Punkt(Index).Left + X - XP0, Punkt(Index).Top + Y - YP0
    cmd.Top = Punkt(Index).Top
    cmd.Height = cmd.Height + (dtop - cmd.Top)
    cmd.Width = Punkt(Index).Left - cmd.Left
Case 3
    Punkt(Index).Move Punkt(Index).Left + X - XP0
    cmd.Left = Punkt(Index).Left
    cmd.Width = (Punkt(4).Left + 80 - cmd.Left)
Case 4
    Punkt(Index).Move Punkt(Index).Left + X - XP0
    cmd.Width = Punkt(Index).Left - cmd.Left
Case 5
    Punkt(Index).Move Punkt(Index).Left + X - XP2, Punkt(Index).Top + Y - YP2
    cmd.Height = Punkt(Index).Top - cmd.Top + 80
    cmd.Left = Punkt(Index).Left
    cmd.Width = (Punkt(4).Left + 80 - cmd.Left)
Case 6
    Punkt(Index).Move Punkt(Index).Left, Punkt(Index).Top + Y - P6
    cmd.Height = Punkt(Index).Top - cmd.Top + 80
Case 7
    Punkt(Index).Move Punkt(Index).Left + X - XP7, Punkt(Index).Top + Y - YP7
    cmd.Height = Punkt(Index).Top - cmd.Top + 80
    cmd.Width = Punkt(Index).Left - cmd.Left
End Select
End If
cmd.Refresh
Exit Sub
Err:
    cmd.Height = 135
    cmd.Refresh
End Sub