Attribute VB_Name = "testTab3"
Sub テスト()
    Load sampleForm
    sampleForm.monthTab.Tabs(0).Caption = "1月"
    sampleForm.monthTab.Tabs(1).Caption = "2月"
    sampleForm.monthTab.Tabs(2).Caption = "3月"
    sampleForm.Show
End Sub