这是我编的一个程序：
Private Sub Command1_Click()
Dim a As String, textW As Interer, textH As Interer
FontName = "隶书"
FontColor = 60
ForeColor = QBColor(15)
BackClolor = QBColor(8)
a = "你好"
textW = TextWidth(a) / 2
textH = TextHeight(a) - Command1.Height / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
End Sub
错误是：
编译错误：用户定义类型未定义

用户定义类型未定义

在 Visual Basic 中可以创建用户自己的数据类型，但它们必须先在 Type...End Type 语句中或是在一个注册过的对象库或类型库中定义，这个错误的原因与解决方法如下所示：

• 试图以一个未定义的类型来声明变量或参数，或者是指定了一个未知的类或对象名称。

  请在一个模块中使用 Type 语句来定义新的数据类型。若正试图创建一个类的引用，则这个类必须要被工程所见。若程序中要引用一个类，工程中必须有这个指定的类模块。

• 要声明的类型在另一个模块中已经被声明为 Private。

  请在标准模块中定义此类型，这样可以让它成为 Public。

• 这是一个有效的类型，但是定义它的对象库或类型库并没有在 Visual Basic 中注册。

  请显示“引用”对话框，然后选择适当的对象库或类型库。例如，如果不复选“引用”对话框中的 Data Access Object，像 Database、Recordset、TableDef这样一些类型就不能被识别，在代码中引用它们便会产生此错误。

详细信息，请选择有问题的项目，并按下 F1 键。

（帮助我又看不懂）！！！！！！！！！！！！

FontName,FontColor这些没有一个对象啊，要这样写吧

text1.FontName = "隶书"

txet1.FontColor = 60

Interer--->Integer

TextWidth(a)这个是什么意思？
FontName = "隶书"这个运行时应该没有错误，只是这样没有什么用处．

Me.TextWidth(a) 用获取字符串 a 在当前窗体内所占的宽度。