VB: Probleme de mappage reseau

Bonjour,
je suis actuellement en train de programmer un petit programme en VB qui me permet de mapper un lecteur reseau.
Mon programme fonctionne comme suit:
[URL=https://imageshack.com/][IMG]http://img692.imageshack.us/img692/1625/sanstitretgf.jpg[/IMG][/URL]

et voici donc mon code:
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buOK.Click

Network = CreateObject("WScript.Network")
shareName = listShareName.Items.ToString
letter = listLetter.Items.ToString
loginName = boxUserName.Text()
passwordName = boxPassword.Text()

If shareName = "" Then
Wscript.Quit()
Else
shareAddress = "\\" & "NAS01\" & shareName
Network.MapNetworkDrive(letter, shareAddress, False, loginName, passwordName)
End If

Me.Close()
End Sub

je précise que je programme à l'aide de Microsoft Visual Basic 2010 Express.
Mon code fonctionnait parfaitement en creant simplement un fichier VB, mais je voulais embelire l'interface.

Le programme m'affiche une erreur au niveau de la ligne que j'ai mis en gras un peu plus haut.
[URL=https://imageshack.com/][IMG]http://img641.imageshack.us/img641/1475/sanstitre2mk.jpg[/IMG][/URL]

Merci de m'éclaircir. C'est la premieère fois que je code en VB, j'ai de bonne connaissance C++ mais je ne pense pas que c'a puisse m'aider.