本人菜鸟一只啊，初学vb，c语言和c++学得都很渣。。。这学期初学vb，不会使用创建一个类的方法建立一个用户登陆界面，要事先设置一个用户名和密码，在输入正确时跳到下一个Form，错误时提醒用户名或密码错误，要创建一个类，然后在登陆窗体中编写代码，表示类和窗体中的代码都不会写，求大神指教啊。。。。。。急。。。。。。感激不尽啊。。。。。。

如果这是这样的话没必要用类来做。

类名为：CUser,代码如下：
Public Class CUser
Dim m_UserName As String
Dim m_PassWord As String
Sub New()
MyBase.New()
m_UserName = ""
m_PassWord = ""
End Sub
Property UserName() As String
Get
Return m_UserName
End Get
Set(ByVal value As String)
m_UserName = value
End Set
End Property
Property PassWord() As String
Get
Return m_PassWord
End Get
Set(ByVal value As String)
m_PassWord = value
End Set
End Property
Public Function IsVerify() As Boolean
Dim isEnd As Boolean = False
If m_UserName = "admin" And m_PassWord = "123" Then
isEnd = True
Else
isEnd = False
End If
Return isEnd
End Function
End Class
预设的账号是：admin 密码是:123

登录按钮代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As New CUser
t.UserName = TextBox1.Text.Trim
t.PassWord = TextBox2.Text.Trim
If t.IsVerify Then
MsgBox(" 登录成功", MsgBoxStyle.Information, "提示")
'调主界面
Else
MsgBox("登录不成功！", MsgBoxStyle.Exclamation, "提示")
End If
End Sub

重新的看了一下你的要求，把代码做一下修改
Public Function IsVerify() As Boolean
Dim isEnd As Boolean = False
If m_UserName = "admin" And m_PassWord = "123" Then
isEnd = True
Else
isEnd = False
End If
Return isEnd
End Function
End Class
改成
Public Function IsVerify() As String
Dim isEnd As String = "成功"
If m_UserName <> "admin" Then
isEnd = "用户错误"
Else
If m_PassWord <> "123" Then
isEnd = "密码错误"
End If
End If
Return isEnd
End Function
按钮 的改代码也修改为下面的：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As New CUser
t.UserName = TextBox1.Text.Trim
t.PassWord = TextBox2.Text.Trim
Dim strMsg As String = t.IsVerify
If strMsg = "成功" Then
MsgBox(" 登录成功", MsgBoxStyle.Information, "提示")
'调主界面
Else
MsgBox("登录不成功！" & strMsg, MsgBoxStyle.Exclamation, "提示")
End If
End Sub