Programování pausy

Bez tvého kódu se dost těžko radí.

Postačí tento kousek?

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.P Then
        If Timer1.Enabled Then
            Timer1.Stop()
        Else
            Timer1.Start()
        End If

    End If
End Sub

Nepostačí. Minimálně ještě obsluhu pohybu myši budeme potřebovat.

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

Ja by som na začiatok tej procedúry dal niečo takéto:
If Timer1.Enabled = False Then Exit (alebo neviem čo sa používa vo VB...)

to postačí jenom tahle věta?

Programujem v Delphi - tam áno... Neviem ako vo VB.

mám to podtrhlý tak to asi nepostačí

Timer1.Enabled = False Then
 Return
End If

a to co jsem měla uprostřed to mám nahradit tím ´Return´?

Co máš uprostřed?

m.Poloha = New Point(d.X + (d.Sirka \ 2) - (m.Velikost \ 2), d.Y - m.Velikost)
pboxPlatno.Refresh()

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

Ne, to máš dát na začátek.

zkopíruj mě to jak to myslíš, mimo tu podmínku?

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

moc děkuju

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

Ale nejspíš to nezabere, protože to máš celé podivné a nejlepší by bylo to úplně překopat.

Tvoj problem je asi to ze robis to cele

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

aj ked je ten timer disablovany. Preto ti pisu daj si test na zaciatok tej procedury.

Alebo mas v tom programe logicky nejake nezmysly napr. ze timer1 v jedneom mieste neni timer1 na inom mieste, alebo tam niekde zas ten timer zapinas to si musis najst ty.