Globalmodule.vb

Module GlobalModule
    Public tipePengguna As String
    Public Sub powerutility(ByVal kar As String)
        System.Diagnostics.Process.Start("shutdown", "/" & kar)
    End Sub
    Public Function Crop(ByVal bmp As Bitmap) As Bitmap
        Dim tmp As New Bitmap(100, 100)

        For i As Integer = 1 To 100
            For j As Integer = 1 To 100
                tmp.SetPixel(i - 1, j - 1, bmp.GetPixel(i + 96, j + 56))
            Next
        Next
        Return tmp
    End Function
    Public Function Konvert(ByVal img() As Byte) As Image
        Dim ms As New IO.MemoryStream(img)
        Dim pict As New PictureBox
        pict.Image = Image.FromStream(ms)
        Return pict.Image
    End Function
End Module