Public Class frmNuevo dim _codigo as String Public Sub New(ByVal Codigo as String ) InitializeComponent() _codigo= Codigo End Sub End Class