Private Sub yerlestir()

On Error GoTo HATA

Dim x As Integer

Dim y As Integer

Dim z As Integer

For x = 1 To 11

 z = Me("tc" & x).Value

 y = Me("tc" & x).Left

 Me.Circle (y + (Me("tc" & x).Width / 2), (z * 240) + 4170), 90, 0

Next x

CIKIS: Exit Sub

HATA: Resume CIKIS

End Sub

Private Sub harfyerlestir()

Dim harfler As String

'harfler = "abcçdefgğhiıjklmnoöprsştuüvyzABCDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"

harfler = "ABCDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"

Dim x As Integer

Dim y As Integer

Dim i As Integer

Dim z As Integer

Dim t As Integer

Dim c As Integer

Dim adsoyad As String

y = Len(harfler)

t = Len(Me.adı_soyadı)

For c = 1 To 18

 Me("M" & c) = ""

Next c

 adsoyad = Format(adı_soyadı, ">")

For z = 1 To t

 Me("M" & z).Value = Mid(adsoyad, z, 1)

 For x = 1 To y

 If Mid(adsoyad, z, 1) = Mid(harfler, x, 1) Then

 Me.Circle (Me("M" & z).Left + (Me("M" & z).Width / 2), (x * 240) + 7100), 90, 0

 End If

 Next x

Next z

End Sub