Solo numeros codigo basic (gambas)

[moradazo]

Este codigo es de Visual Basic 2005 tal vez lo puedas interpretar en la version que trabajas:

Código:

Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CBchar.KeyPress
        e.Handled = ValidaNum(CBchar, e.KeyChar) 'Aqui valida lo que trae de la funcion.
End Sug
        
Public Function ValidaNum(ByVal txtControl As TextBox, ByVal caracter As Char) As Boolean
        If (Char.IsNumber(caracter, 0) = True) Or (Char.IsControl(caracter) = True) Then
'Primer solo agrega digitos y despues del Or para que puedas borrar con el backspace
            Return False
        Else
            Return True
        End If
    End Function

Espero te sirva, saludos