小李编写了一个程序,用以实现下列功能:在文本框Text1中一个十进制数,在文本框Text2中输入需转换数的进制(小于等于16),点击转换按钮,在文本框Text3中输出转换后的数字;点击“退出”按钮,关闭程序。程序运行界面如下图所示:

(1)根据题目意思,应该在编辑界面将对象“command2”的______________属性改为“退出”。
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub