teşekkürler dediğin gibi yaptım başka bir mantık gelmedi aklıma yarın hocayada sorcam başka mantığı varsa buraya yazarım.



not : komudu butona yazdım checkboxlara yazınca sorun olabiliyor.

Dim dil As String = ""  
        If chk_ingilizce.Checked = True Then
            dil = dil & "ingilizce "
        End If
        If chk_almanca.Checked = True Then
            dil = dil & "almanca "
        End If
        If chk_rusca.Checked = True Then
            dil = dil & "rusça "
        End If
        If chk_fran.Checked = True Then
            dil = dil & "fransızca "
        End If
        If chk_ital.Checked = True Then
            dil = dil & "italyanca "
        End If
        If chk_yun.Checked = True Then
            dil = dil & "yunanca "
        End If
        MsgBox(dil)

If chk_ingilizce.Checked = False And chk_almanca.Checked = False And chk_rusca.Checked = False And chk_fran.Checked = False And chk_ital.Checked = False And chk_yun.Checked = False Then
            dil = "yabancı dili yok"
        End If