Public Overloads Sub Show(ByVal UserName As String) MsgBox("パラメータとして" & UserName & "を受け取りました。") Me.Show() End Sub