code: Dim frmCI As frmCon set frmCI = New frmCon frmCI.lblFriendlyName.Caption = MyFriend.FriendlyName frmCI.lblSigninName.Caption = MyFriend.SigninName frmCI.Show