Merhaba arkadaşlar visual basic 6.0 da bir takvim programıma ihtiyacım var.Takvim programının başlangıc kısmını yani ayları picturebox'a yazdırmayı yaptım.

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