[VB.NET]急,高手帮忙解决,谢谢!

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
急,高手帮忙解决,谢谢!
Imports System.Data.SqlClient
Public Class fmmain

Dim strprogramid As String
Dim bnfirstrun As Boolean
Dim struserid As String
...
Private Sub fmmain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
If bnfirstrun Then
bnfirstrun = False
Dim fmpassword As New fmpassword()
If fmpassword.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Me.Close()
Else
struserid = fmpassword.myuser (fmpassword.myuser 有问题)
End If
End If

End Sub
.....
Private Sub bnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnexit.Click
If MessageBox.Show( 离开进销存管理系统? , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then

Me.Close()
End If

End Sub
(MessageBox.Show( 离开进销存管理系统? , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)有问题)
哪为高手帮助解决一下啊
__________________________________________________________________________