| Option Explicit
Private Declare Function GetKeyboardType Lib "User32" (ByVal nTypeFlag As Integer) As Integer
Private Sub Form_Load()
Show
Dim a, str1
a = GetKeyboardType(0)
Select Case a
Case 1: str1 = "XT tipi 83 tuşlu"
Case 2: str1 = "Olivetti tipi 102 tuşlu"
Case
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
