Public Class Effectuation_de_choix
Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
Dim result1 As DialogResult = MessageBox.Show("Le lien de cette historique va s'ouvrir sur google... D'accord!")
If result1 = DialogResult.OK Then
If ComboBox1.Text = "Camion HP 21" Then
Process.Start("https://docs.google.com/spreadsheets/d/1_0pLQENywq0X_D3k9EzvZRfwcu3cIWJ1gFrhjX93aNI/edit#gid=0")
` Me.Hide()
End If
End If
End Sub
End Class