Private Sub labrefdt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles labrefdt.KeyPress If Asc(e.KeyChar) = Keys.Enter Then If Len(labrefdt.Text) = 0 Then labrefdt.Enabled = False selcalendar.Show() selcalendar.Focus() selcalendar.ShowTodayCircle = True selcalendar.ScrollChange = 1 Else labrefdt.Enabled = False labrefdt.Text = Format("dd/MM/yyyy") GroupBox2.Enabled = True patname.Enabled = True patadd.Enabled = True patsex.Visible = False malebutton.Visible = True femalebutton.Visible = True patname.Text = "" patname.Focus() patcontact.Enabled = True patreference.Enabled = True End If End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)