Code:
Set frmComputerCards1 = New frmComputerCards
Load frmComputerCards1
frmComputerCards1.Caption = "Computer Player 1"
frmComputerCards1.txtUsername.Text = "Woka"
frmComputerCards1.Show
Woka