Private
Sub cmdfim_Click()
End
End Sub
Private Sub cmdoutro_Click()
txtpte.SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As
Integer)
If KeyAscii
= 13 Then
SendKeys "{tab}"
KeyAscii =
0
End If
End Sub
Private Sub txtpte_GotFocus()
txtpte.Text
= ""
MaskEdBox1.Text
= ""
End Sub
Private Sub txtpte_KeyPress(KeyAscii
As Integer)
Select Case
KeyAscii
Case
vbKeyDelete
Case
vbKeyBack
Case
48 To 57
Case
Else
Beep
KeyAscii
= 0
End Select
End Sub
Private Sub txtpte_LostFocus()
If txtpte
<> "" Then
txtpte.Text
= Format(txtpte.Text, "Currency")
MaskEdBox1.Text
= txtpte.Text / 200.482
End If
End Sub
|