如何建立一个公用的方法，并且调用

怎么建立一个公用的方法，并且调用？
菜鸟一个，业余选手。

怎么建立一个公用的方法 Z() 

可以让z（a)返回2a

就是  s1=Z(1.5)   那么S1=3
s2=z（3.2）  那么S2=6.4 

这样，给点简单代码 谢谢
------解决方案--------------------
你直接建立Shared的方法
------解决方案--------------------
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim S1, S2 As Single
        S1 = Z(1.5)
        MsgBox(S1)
        S2 = Z(3.2)
        MsgBox(S2)
    End Sub

 Function Z(ByVal a As Single) As Single
        Return a * 2
    End Function

------解决方案--------------------

  Public Shared Function FnResult(ByVal a As Single) As Single
        Return a * 2
    End Function

如1,2楼所说的,调用FnResult方法,并传入参数,就OK了.
------解决方案--------------------
建立类文件Class1.vb  ,放

 Public Shared Function Z(ByVal a As Single) As Single
        Return a * 2
    End Function

调用：
　　　  Dim S1, S2 As Single
        S1 = Class1.Z(1.5)
        MsgBox(S1)
        S2 = Class1.Z(3.2)
        MsgBox(S2)

------解决方案--------------------
新建一个公共模块（项目菜单-新建项），然后再在里面写公共方法就可以了。