2 Begin VB.Form Recipient
4 BackColor = &H00C0C0C0&
5 BorderStyle = 3 'Fixed Dialog
12 name = "MS Sans Serif"
18 strikethrough = 0 'False
20 ForeColor = &H80000008&
31 Begin Threed.SSPanel StatMsg
41 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
42 name = "MS Sans Serif"
48 strikethrough = 0 'False
54 Begin VB.CommandButton ok_button
56 BackColor = &H80000005&
64 Begin VB.CommandButton cancel_button
66 BackColor = &H80000005&
74 Begin Threed.SSFrame Frame3D1
84 Caption = "Enter recipient:"
85 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
86 name = "MS Sans Serif"
92 strikethrough = 0 'False
94 Begin VB.TextBox recpname
97 BackColor = &H00C0C0C0&
100 name = "MS Sans Serif"
106 strikethrough = 0 'False
116 Attribute VB_Name = "Recipient"
117 Attribute VB_Creatable = False
118 Attribute VB_Exposed = False
120 Private Sub cancel_button_Click()
125 Private Sub Form_Load()
127 Recipient.WindowState = 0
128 Recipient.Top = Abs((MainWin.Height - Recipient.Height) / 3)
129 Recipient.Left = Abs((MainWin.Left - Recipient.Width) / 2)
134 Private Sub ok_button_Click()
136 If begin_trans() = True Then
137 serv_puts ("ENT0 0|" + recpname.Text)
140 If Left$(a$, 1) = "2" Then
141 recp$ = recpname.Text
145 statmsg.Caption = Right$(a$, Len(a$) - 4)
151 Private Sub recpname_KeyPress(keyascii As Integer)
152 If keyascii = 13 Then Call ok_button_Click
153 If keyascii = 27 Then Call cancel_button_Click