Here it is, and thanks for your time....
Private Sub OpenProjTask_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If LoadProjects(psUserUnit, psUserTeam, psUserGroup) Then
If psLastProjectName <> "" Then
cbProj.Text = psLastProjectName
LoadTasks(plLastProjectNbr, psUserUnit, _
psUserTeam, psUserGroup)
End If
Else
MsgBox("The projects you participate in have no tasks assigned!", MsgBoxStyle.Critical)
Me.Close()
Me.Dispose()
End If