ASP.NET

protected void GridView1_RowCommand(object sender, GridViewCommandEventArgs e)
      {
          if (e.CommandName == "Up")
          {
              int i = int.Parse((string)e.CommandArgument);
              GroupAdapter.Update(Convert.ToInt32(GridView1.DataKeys[i - 1].Values[0].ToString()), i + 1);
              GroupAdapter.Update(Convert.ToInt32(GridView1.DataKeys[i].Values[0].ToString()), i);
              BindData();
          }
          else if (e.CommandName == "Down")
          {
              int i = int.Parse((string)e.CommandArgument);
              GroupAdapter.Update(Convert.ToInt32(GridView1.DataKeys[i + 1].Values[0].ToString()), i);
              GroupAdapter.Update(Convert.ToInt32(GridView1.DataKeys[i].Values[0].ToString()), i + 1);
              BindData();
          }
      }

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Convert
     Inherits System.Web.Services.WebService

    <System.Web.Services.WebMethod()> _
Public Function FahrenheitToCelsius(ByVal Fahrenheit As Double) _
       As Double
        Return ((Fahrenheit - 32) * 5) / 9
    End Function

    <System.Web.Services.WebMethod()> _
        Public Function CelsiusToFahrenheit(ByVal Celsius As Double) _
            As Double
        Return ((Celsius * 9) / 5) + 32
    End Function


End Class

Partial Class Default4
    Inherits System.Web.UI.Page

    Protected Sub ConvertButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ConvertButton1.Click
        Dim wsConvert As localhost.Convert()
        Dim temperature As Double = System.Convert.ToDouble(TemperatureTextBox.Text)
        FarenhiteLabel.Text = wsConvert.FahrenheitToCelsius(temperature).ToString()

        'wsConvert.FahrenheitToCelsius(temperature).ToString()
        '    CelciusLabel.Text = "Celsius To Fahrenheit = " & _
        '        wsConvert.CelsiusToFahrenheit(temperature).ToString()

    End Sub
End Class

Dim wsConvert As localhost.Convert()

Dim wsConvert As localhost.Convert = New localhost.Convert()