Private Sub Komut1_Click()
Shell "cmd /C ping " & Me.ip_no
End Sub
pardon ben hepsine otomatik atmasını istediğinizi sandım kodu aşağıdaki ile değiştirin