Attribute VB_Name = "testLabel2"
Sub テスト()
    Load sampleForm
    sampleForm.nameLabel.Font.Name = "ＭＳ 明朝"
    sampleForm.nameLabel.Font.Bold = True
    sampleForm.nameLabel.Font.Italic = True
    sampleForm.nameLabel.Font.Size = 12
    sampleForm.Show
End Sub