Type address
    phone As String
   
End Type
Dim myhome As address
    myhome.phone = "123456"
   
Private Sub Command1_Click()
Text1.Text = myhome.phone

End Sub
运行之后出现“无效外部过程”的错误提示框
请教大家的帮助

有啊

Type address
    phone As String
     
End Type
Dim myhome As address

Private Sub Command1_Click()
 myhome.phone = "123456"
Text1.Text = myhome.phone

End Sub
放在下边还是错“在私有对象模块中不能定义public的用户定义类型”的错误提示啊
请大家帮一帮忙吧

谢谢了，
但是我还是找不出错误的原因来啊

Private Sub Form_Load()

Sub ClearData()

   Num1 = 0
   Num2 = 0
   StrNum1 = ""
   StrNum2 = ""
   FirstNum = True
   PointFlag = False
   Runsign = 0
   SignFlag = False
   Text1.Text = "0."
End Sub

End Sub
运行后出现“缺少End Sub”的错误提示
请教大家的帮助

我也不怎么理解你的意思

我的意思就是想自己定义一个类型
并且一点击按扭，在文本框中显示出自己给的它的那个值
请教大家帮我写一下代码吧
我真的都试了还是不行啊

Type address
    phone As String
    End Type
   
   
Private Sub Command1_Click()
 Dim myhome As address
myhome.phone = "123456"

Text1.Text = myhome.phone
End Sub

感谢，感谢，非常感谢了
但是你说的我好象是一点vb的基础也没有
真是所谓的一步一步的叫啊
总的来说还是非常感谢你的帮我解决了一道我自认为的难题啊
谢谢拉
也同样谢谢大家