Bunun dışında istenildiği gibi günleride print'i kullanarak picturebox'a yazdırma işlemini yaptırdım.
Şimdi tek sıkıntım girilen "Ay" ' ın sayılarını düzgün bir şekilde picturebox'a yazdırmak.
Private Sub Command1_Click()
Dim ay As Integer, yil As Integer, i As Integer
ay = Text1.Text
yil = Text2.Text
Select Case ay
Case 1
Picture1.Print " Ocak"
Case 2
Picture1.Print " Şubat"
Case 3
Picture1.Print " Mart"
Case 4
Picture1.Print " Nisan"
Case 5
Picture1.Print " Mayıs"
Case 6
Picture1.Print " Haziran"
Case 7
Picture1.Print " Temmuz"
Case 8
Picture1.Print " Ağustos"
Case 9
Picture1.Print " Eylül"
Case 10
Picture1.Print " Ekim"
Case 11
Picture1.Print " Kasım"
Case 12
Picture1.Print " Aralık"
End Select
Picture1.Print
Picture1.Print "Pazartesi",
Picture1.Print "Salı",
Picture1.Print "Çarşamba",
Picture1.Print "Perşembe",
Picture1.Print "Cuma",
Picture1.Print "Cumartesi",
Picture1.Print "Pazar",
Picture1.Print
End Sub