Public F1CodPint As Integer
Public F1NomPint As String
Me.txt_codigo.Text = Desplega_Autonumerico("SELECT MAX(codigopintor) FROM pintor")
Dim fmsg As New frmmsg
fmsg.ShowDialog(Me)
fmsg.Dispose()
F1CodPint = Me.txt_codigo.Text
F1NomPint = Me.txt_nombre.text