Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
    TxtNama.Text = My.Computer.Name
    TxtIP = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString
End Sub End Class