Konu: Ay İsimlerini Yazdırma

Ay isimlerini uzun ve kısaltılmış halleriyle Form üzerine yazdıran program..
(Form'a bir şey eklemiyoruz)


Private Sub Form_Load()
Show
FontName = "comic sans ms"
FontBold = True
FontUnderline = True
FontSize = 17
Print "Ay İsimleri"
FontSize = 13
FontUnderline = False
For i = 1 To 12
Print MonthName(i, False)
Next i
FontSize = 17
FontUnderline = True
Print "Kısaltılmış Ay"
FontSize = 13
FontUnderline = False
For i = 1 To 12
Print MonthName(i, True)
Next i
End Sub