Código vb.net:
Ver original' Procedimiento para Verificar Solo Numeros
Public Sub SoloNumeros(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
' Esto iria en el evento KeyPress de tu control
Ejm:
SoloNumeros(nombretextbox,e)