Ener'Make
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim temp As Byte
temp = SystemInformation.PowerStatus.BatteryLifeRemaining / 60
Label1.Text = "Pourcentage : " & SystemInformation.PowerStatus.BatteryLifePercent * 100 & " %"
Label2.Text = "Temps restant : " & temp
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temp As Byte
temp = SystemInformation.PowerStatus.BatteryLifeRemaining / 60
Label1.Text = "Pourcentage : " & SystemInformation.PowerStatus.BatteryLifePercent * 100 & " %"
Label2.Text = "Temps restant : " & temp & " minutes"
End Sub
Private Sub Label2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Spammer By ZeyNoR3. I'm have a YouTube Channel's and Website (www.portail-zeynor3.fr.mu) I'm French", MsgBoxStyle.OkOnly, "Crédits | Ener'Make By ZeynoR3")
End Sub
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim temp As Byte
temp = SystemInformation.PowerStatus.BatteryLifeRemaining / 60
Label1.Text = "Pourcentage : " & SystemInformation.PowerStatus.BatteryLifePercent * 100 & " %"
Label2.Text = "Temps restant : " & temp
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temp As Byte
temp = SystemInformation.PowerStatus.BatteryLifeRemaining / 60
Label1.Text = "Pourcentage : " & SystemInformation.PowerStatus.BatteryLifePercent * 100 & " %"
Label2.Text = "Temps restant : " & temp & " minutes"
End Sub
Private Sub Label2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Spammer By ZeyNoR3. I'm have a YouTube Channel's and Website (www.portail-zeynor3.fr.mu) I'm French", MsgBoxStyle.OkOnly, "Crédits | Ener'Make By ZeynoR3")
End Sub
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class