Categories
Belekas Fun Video

KVN – MAtrioshki

Categories
Belekas Fun Kompai

ND1

Dim db As Database Dim rec As Recordset Private Sub cmdAtsaukti_Click() Unload Me End Sub Private Sub cmdTvirtinti_Click() If txtVardas.Text = “” Then MsgBox “Klaida”, vbOKOnly, “Netaisingai!” Exit Sub Else If txtSlapt1.Text txtSlapt2.Text Then MsgBox “Netaisingai!”, vbOKOnly, “Klaida” Exit Sub Else MsgBox “Jusu vardas yra ” & txtVardas.Text & Chr(13) & _ “Jūsų slaptažodis yra […]