frmConfSenha.frm
2.41 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
VERSION 5.00
Begin VB.Form frmConfSenha
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 780
ClientLeft = 0
ClientTop = 0
ClientWidth = 5025
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 780
ScaleWidth = 5025
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox txtConfSenha
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1980
PasswordChar = "*"
TabIndex = 1
Top = 210
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 405
Left = 4215
TabIndex = 2
Top = 180
Width = 585
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Confirme a Senha:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 225
TabIndex = 0
Top = 270
Width = 1815
End
Begin VB.Shape Shape1
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
BorderColor = &H8000000B&
BorderStyle = 0 'Transparent
Height = 630
Left = 90
Top = 75
Width = 4860
End
End
Attribute VB_Name = "frmConfSenha"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
FrmUser.txtConfSenha.Text = txtConfSenha.Text
Unload Me
End Sub