[FONT=Courier New][SIZE=2]Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim yol As String
yol = Space(255)
Call GetComputerName(yol, 255)
Text1.Text = yol
End Sub[/SIZE][/FONT]



[FONT=Courier New][SIZE=2]Bir adet command button ve textbox ekleyin..[/SIZE][/FONT]