Permitir apenas a digitação de números

 

Private Sub TxtSize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtImagemLargura.KeyDown

    'Se o character não for numérico ou backspace, ignorar o que foi digitado
    If Not IsNumeric(Chr(e.KeyCode)) And e.KeyCode <> 8 Then
        e.SuppressKeyPress =  True
    End If

End Sub

 

Mark Costa (marksouzacosta@hotmail.com)