请高人帮看看哪里出问题了~它说红色字体x As Form2用户类型未定义
Dim DiZhi As Long
Dim Dizhi1 As Long
Dim x As Form2
Dim CKJB As String

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vkey As Long) As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[此贴子已经被作者于2007-2-7 21:48:49编辑过]

不知你添没添加form2？如果添加了form2，试试：
Private Sub Form_Load()
Dim i As Integer
Set x = New Form2
x.Show

End Sub

我试了一下，当没添加form2时，就会出现“用户类型未定义”的提示！

form2全名叫什么?在哪找?
本人是新手~以后还请各位多多指教

既然你都不知道Form2是什么，那你为什么要定义“Dim x As Form2”？在我看来Form2就是Form2窗体了！

Form2或着是一个类也可以。

OK~找到了~