If Not mdTouchSpeed = 0 Then
For Each pcdCommand In mobjCurrentPart.Commands
If pcdCommand.Type = TOUCH_SPEED Then
Call pcdCommand.PutText(mdTouchSpeed, F_TOUCHSPEED, 0)
Call pcdCommand.ReDraw
End If
Next pcdCommand
End If
If Not mdTouchSpeed = 0 Then
For Each pcdCommand In mobjCurrentPart.Commands
If pcdCommand.Type = TOUCH_SPEED Then
Call pcdCommand.PutText(mdTouchSpeed, F_TOUCHSPEED, 0)
Call pcdCommand.ReDraw
End If
Next pcdCommand
End If