Torna al Thread
Private Sub TextBox14_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox14.KeyDown
Threading.Thread.Sleep(1000)
If Keys.F10 Then
Dim frmSc As New frmSconti
frmSc.GroupBox1.Visible = True
frmSc.btnOk.Visible = True
frmSc.btnAnnulla.Visible = True
frmSc.lblric.Text = "SI"
frmSc.ShowDialog(Me)
If frmSc.DialogResult = Windows.Forms.DialogResult.OK Then
Me.TextBox14.Text = frmSc.txtDescrizione.Text
Me.txtSc1.Text = frmSc.txtScEff.Text
Else
frmSc.Close()
End If
Else
Exit Sub
End If
End Sub