Private Sub cbokode_Click()
Dim m, hrg As String
Select Case cbokode.Text
Case “Apple MC965 Macbook Air”
m = “Apple Macbook Air MC965″
hrg = “12800000″
Case “Apple MC966 Macbook Air”
m = “Apple Macbook Air MC965″
hrg = “15800000″
Case “Apple MC968 Macbook Air”
m = “Apple Macbook Air MC968″
hrg = “9900000″
Case “Apple MC969 Macbook Air”
m = “Apple Macbook Air MC969″
hrg = “11900000″
Case “Apple MC700 Macbook Pro”
m = “Apple Macbook Pro MC700″
hrg = “10800000″
Case “Apple MC721 Macbook Pro”
m = “Apple Macbook Pro MC721″
hrg = “15900000″
Case “Apple MC723 Macbook Pro”
m = “Apple Macbook Pro MC723″
hrg = “19300000″
Case “Apple MC311 Macbook Pro”
m = “Apple Macbook Pro MC311″
hrg = “24200000″
Case “Apple MC313 Macbook Pro”
m = “Apple Macbook Pro MC313″
hrg = “11900000″
Case “Apple MC314 Macbook Pro”
m = “Apple Macbook Pro MC314″
hrg = “14700000″
Case “Apple MC318 Macbook Pro”
m = “Apple Macbook Pro MC318″
hrg = “17600000″
Case “Apple MC322 Macbook Pro”
m = “Apple Macbook Pro MC322″
hrg = “21300000″
Case “Apple MC965 Macbook Pro”
m = “Apple Macbook Pro MC965″
hrg = “12800000″
Case “Apple MC966 Macbook Pro”
m = “Apple Macbook Pro MC966″
hrg = “15800000″
End Select
txtmerk.Text = m
txths.Text = hrg
txtjj.SetFocus
End Sub
samhudistmikpringsewu88 