VB 2008: 文字サイズの指定要領が判りません！

質問

指定秒だけメッセージを表示する関数を作成しています。
しかし、文字サイズの設定要領が判りません。
VB.NET 学習４０日余という初学者です。
宜しくお願いします。

　　Sub PauseMsg2(ByVal Msg As String, ByVal PauseTime As Double, ByVal aColor As Color, ByVal iFontSize AS Integer)
　　　　Dim frm As New Form
　　　　Dim lbl As New Label()

　　　　With lbl
　　　　　　.Text = Msg
　　　　　　.BorderStyle = BorderStyle.None
　　　　　　.Location = New Point(10, 10)
　　　　　　.ForeColor = aColor
　　　　　　.Size = XXXXX
　　　　　　.Width = 478
　　　　End With
　　　　With frm
　　　　　　.HelpButton = False
　　　　　　.FormBorderStyle = FormBorderStyle.FixedDialog
　　　　　　.ControlBox = False
　　　　　　.MaximizeBox = False
　　　　　　.MinimizeBox = False
　　　　　　.Text = ""
　　　　　　.Width = 500
　　　　　　.Height = 20
　　　　　　.StartPosition = FormStartPosition.CenterScreen
　　　　　　.Controls.Add(lbl)
　　　　　　.Show()
　　　　　　Pause(PauseTime)
　　　　　　.Close()
　　　　End With
　　End Sub

　　' ------------
　　'　ポーズ関数
　　' ------------
　　Sub Pause(ByVal PauseTime As Double)
　　　　Dim Finish As Double = DateAndTime.Timer + PauseTime

　　　　Do
　　　　　　DoEvents()
　　　　Loop Until DateAndTime.Timer > Finish
　　End Sub

回答No.1

Gab_km

SizeプロパティはSize構造体を受け取ります。
ご希望の高さと幅を持つSize構造体を与えてみてください。

'----------- Code Snippet -------------
Dim width As Integer = 30 ' 幅
Dim height As Integer = 15 ' 高さ
Label1.Size = New Size(width, height)
'--------------------------------------

ただ、質問にあるコードを見ると、Widthプロパティも設定しています。
HeightプロパティとWidthプロパティの組を用いるか、Sizeプロパティで
指定するか、どちらか一方にした方が良さそうです。

お礼

完全に目的を達成しました。
指定要領も統一しました。
本当にありがとうございました。