CÓDIGOS VB6

CODIGO PARA FORMULARIO TRANSPARENTE

Private Sub Command1_Click()

If USUARIO.Text = "KARLOSNUN" And CONTRASEÑA.Text = "RINGO" Then

SUMA.Show

Me.Hide

Else

MsgBox "La contraseña es invalida"

CONTRASEÑA.Text = ""

End If

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

Label2.Caption = Date

End Sub